RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


1 15 


*eF TLE®ee 1D eeNDXFMT 
; 

NN NN DDDDDDDD XX XX FFFFFFFFFF MM MM TTTTTTTTTT 3 
NN NN DDDDDDDD Xx XX FFFFEFFFFF MM MM TTTTTTTTTT $ 
NN NN DD DD XxX XX FF MMM MMMM TT 3 
NN NN DD DD XxX x FF MMMM MMMM TT b 
NNNN NN ODD DD XX XX FF MM MM MM TT 

NNN N DD DD XX XX FF MM MM OMM TT 

NN NN NN ODD DD Xx FFFFFFFF MM MM TT 

NN NN NN OD DD XX FFFFFFFF MM MM TT 

N NNNN ODD DD XX XX FF MM MM TT 

NN NNNN ODD DD XX XX FF MM MM TT 

NN NN DD DD x XX FF Me MM TT aaa 

NN NN DD DD XxX XX OFF MM MM TT er 

NN NN DDDDDDDD XX XX FF MM MM TT was 

NN NN DDDDDDDD XX XX FF MM MM TT = 
LL IIIIII SSSSSSSS 
LL IIIII1 SSSSSSSS 
LL II Ss 
LL II SS 
LL II SS 
LL I] SS 
LL II SSSSSS 
LL II SSSSSS 
LL J] SS 
LL I] Ss 
iL II Ss 
LL I] ss 
LLLLLLLLLL IIIII1 SSSSSSSS 
LLLLLLLLLL Iilil SSSSSSSS 
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NDXFMT == Binary index formatter — 
= 


| 
1986 22:29:54 — ERUNOFFCSRESNDAEMT-=BLI; tea 


ZTITLE "NDXFMT <= Binary von 800 formatter’ 
MODULE NDXFMT —. H po" 
BLISS32 ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] 


Ss 
OO 
— 


BEGIN 

' 

i 

RRR E RRA ARE RARE ARR ARAAAARAAERA AE R EAE A AEE E AAA AAAEERAEEAAERREREERKE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


'* THIS i. ich }. FURNISHED UNDER A LICENSE AND MAY BE USED AND series 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THe ABOVE ce yoneee NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ts FRAnsteReten” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
: OORPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL ASSUMES NO RESPONSIBILITY "SR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MMMM 333 3S SS SI OOOOOO 


NOUS WN 0 ODN UE WN 3 0 OONAU EWN 0 ODNOAU FWA “QO VOVNOUE WN OOONOUSE 


@eeneeeneeneenennennnnnnnen 


Lee RRR AERA EAREAREERAAR AAA R EA A AAA RAEAAERAKERREEEE 
' 


lee 

i FACILITY: 

! DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 

i ABSTRACT: 

‘ This module contains the code to Sgt oe the output index Lines 
| 
| 
| 
| 


e output Lines are formatted 
into pages by module NDXPAG. This module was adopted from the TCX 


from the internal binary index. T 
modules XPASSA and XPASSB. 
i ENVIRONMENT: Transportable 


9999999 SER ee ee 


1 

1 

1 

' 

' 

! 

i] 

' 

' 

i AUTHOR: JPK 
: CREATION DATE: January 1982 
t 

i] 

i 

i] 

' 

( 

i] 

' 

! 


COOOCOSCoOSOOOSOOSOSOSOSOSOOOOSOOOOCOOOOoOOO 


oo 
BS 


i MODIFIED BY: 


013 JPK00022 30-Mar-1983 
Modified NDXVMS, NDXFMT, NDXPAG, NDXVMSMSG and NDXVMSREQ 
to generate TEX output. Added module NDXTEX. 


012 PK00021 28-m" Tees 
Modi tied NDXT20 to nl e E2.0 functionality. 
Modified NDXCLIDMP, aSXTar NDXPAG, NDXVRS to “require RNODEF 
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010 


009 
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007 


006 


005 


004 


K 15 
16-Sep-1984 00:5 AX=11 Bliss-32 V4.0-74 
2 Sep-1984 38 33: af RUNOFF ..SRCIJNDXFMT.BLI; 


for BLISS36 and to remove any conditional require based on 
DSRPLUS_DEF. 

JPK00020 17-Mar-1983 

Modified NDXFMT to generate a ‘'.NO PAGING'’ in the prologue 
for /LAYOUT=GALLEY 

JPK00018 09-Mar-1983 

Modified INDEX to handle new BRN forma 

Modified NDXOUT to handle specifyable levels on SORT= string. 
Modified NDXFMT to output new RUNOFF protog ogue. 

Modified NDXPAG to output new TMS prologue and RUNOFF epilogue. 
JPK00017 23-Feb-1983 

Modified NDXINI to initialize the zero'th entries of LLINES, 
oe end, a which is where the telltale strings are 
store 


Modified” NDXFMT to write appropriate prologue for /TELLTALE, 
save the appropriate Lines for left and right telltales, and 
to mark the end of every entry with a NULL. 

Modified NDXPAG to change the NULL following each entry to a 
space if LAYOUT is SEPARATE or to a comma otherwise and to 
generate and output telltales. 


JPK00015 04-Feb-1983 
Cleaned up module names, modified revision ghee to 
conform with established standards. Updated copyright dates. 


JPK00012 24-Jan-1983 

Modified NDXVMSMSG. SG to define error messages for both 
DSRINDEX and INDEX. 

Added require of NOXVMSREQ.R32 to NDXOUT, NDXFMT, NDXDAT 
INDEX, NDXMSG, NOXXTN, NDXTMS, NDXVMS and NDXPAG for BLI§S32. 
since this file defines the error message Literals, 

the EXTERNAL REFERENCES for the error message Literals 

have been removed. 


JPK00011 ee n-1983 

Changed CMDBLK Oxse LEVEL] to wor CNDX$H LEVEL) 

Changed CMDBLK NDXSRE FORMAT] to CMDBLK CNDX$A_LAYOUT) 

Changed CMDBLK WOxSV, i cand ye ENDXSV. TEX to CMDBLK CNDX$H_FORMAT) 


re ed comparisons o QLA 
(.CM 4 PRBxSH® one at eat meri k) 


Definitions were changed in NOXCL 1 = references to the 
bby ty Bi were changed in NDXPAG, NDXFMT, INDEX, NDXVMS 
an 


JPK00010 24-Jan-1983 

Removed routines GETDAT and UPDDAT from NDXDAT - they 
performed no useful function. penwess references to these 
routines from NDXOUT, NDXFMT, and NDXMSG. 

Removed reference to XPOOL in ADXOUT - not used. 


JPK00009 24-Jan-1983 

Modified to enhance performance. The sort buckets have each 
been divided into 27 sub-buckets; 1 for each letter and 

for non-alphas. Removed reference to BUCKET from INDEX. 


a ts os SY YH se 


MPPoOPoefnroef~monnn— = 
a tt 


Rronoponroronofnong 2] SS 


CONAULEWN—"OODONOu 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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15 
NDXFMT == Binary index formatter 18-Sep-19 4 90:38:17 AX-11 Bliss-32 V4.0-74 
-$ep-1984 22:29:54 RUNOFF .SRCINDXFMT.BLI;1 


Definition of the structure was added to NDXPOL. References 
ae ene changed in modules NDXOUT, NDXINI, NDXFMT 
an » 


JPK00006 24-Sep-1982 
Modified NDXFMT to ignore REQUIRE file if filename string 
is null. Added bold guide headings for RUNOFF output. 


JPK00004 eeoeite "es 

Modified NDXOUT, NDXMSG, NDXFMT, and NDXDAT for TOPS-20. 
Strings stored in the index pool use the first fullword 

for their length. References to these strings were incorrect. 


M15 
NDXFMT NDXFMT == Binary index formatter Ig-3e=12 4 90:38:17 AX-11 te V4.0-742 Page 4 
v04-000 Module level declarations -Sep-1984 22:29:54 RUNOFF .SRCJNDXFMT.BLI;1 (2) 
; ! ? 4 2 ] XSBTTL "Module level declarations’ 
s 3 ¢ 4 1 1 ! TABLE OF CONTENTS: 
; 7 1 ¢ 74 
; ls 01 1 
. 3a 8 4 1 FORWARD ROUTINE 
; 136 i} ee | NDXFMT : NOVALVUE, ! Generate output index 
s tor 0136 1 EXAM_BUCKET : NOVALUE, ! Examine bucket 
; 138 0137 1 FORMAT_ENTRY: NOVALUE, ' Format an index entry 
3; (139 0138 1 INS PAGE_NO : NOVALUE, ! Insert page number(s) in print Line 
; 140 0139 1 BOOR_REF : NOVALUE, ! Insert book name in master index 
3 «(141 0140 1 PAGE_REF : NOVALUE, ' Convert page reference to ASCII 
: 106 0141 1 SAMEPG ' Compare page references 
: 14 O14¢ 1 SAME_ATTR, i Page references have same attributes 
> (144 0145 (1 INS_LIN : NOVALUE, ! Insert Line into page 
: «6145 0144 1 SAVE_TELLTALE_HEADING : NOVALUE, ' Save Line as telltale heading 
> 146 0145 1 LAST : NOVALUE, ' Process last Line in column 
3 «(147 0146 1 DO_CONTINUE : NOVALUE, ! Generate continuation heading if necessary 
; 148 0147 1 L_LIN : NOVALUE, ! Pack the print Line 
> 149 0148 1 INDERT_LINE : NOVALUE, ! Indent a new Line 
; 1 0149 1 PADLIN : NOVALUE; ! Pad Line to column width 
, 3) 0150 1 
; 136 0151 1! 
: 3S bias 1 ! INCLUDE FILES: 
3 «(154 0153 1! 
; 9395 0154 1 LIBRARY ‘NXPORT:XPORT'; 
: 136 0155 1 
; 397 0156 1 SWITCHES LIST (REQUIRE); 
s 138 0157 1 
3; «6159 0158 1 REQUIRE ‘REQ:NDXPOL'; 


Bc 22:58:26 'S3S}S0UAS8ScaunbeFcsRCSnpxroL .reo; 12% «13 


N 15 
NOXFMT NDXFMT == Binary index formatter 16-Sep- 
v04-000 Module level declarations 18 Sep 


; ROWS 1 ! 

; ithe ! Version: *v04-000' 

: Roe 1 ADDS ESS SILLS IIIT ITI TTT TTT TIT ISSCC TILT etirirrireTirirrririTTrrrrrer Terre 

; ROWS 1 '® 

; RO164 1 ‘* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

; ROWS 1 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

; RO 188 : :* ALL RIGHTS RESERVED. * 

5 i* ® 

; ROWU8 1 :* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

3; ROWS 1 :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

; kRO170 1 :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

3 RO171 1 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; kO172 #1 :* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: sid, : is TRANSFERRED. x 

; ‘® e 

; RO175 1 :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

> RO176 1 :* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; Aid ad : CORPORATION. * 

5 ‘® * 

3 RO179 1 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; apie 1 tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

3 181 1 '® * 

; RO1W82 1 '® * 

2 RO183 1 hh bed eee PPP T TSP TSP T ITIL I IIIS ITI IT IIIT ILL IT TITTLE TT TTTTTTTTTTT Ts 

; RO1B4 1 ! 

; RO18S 1 

; RO186 1 '++ 

; RO187 1 ! FACILITY: 

3 Roles ' DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 

3 RO190 1 ! ABSTRACT: : 

; RO191 1 1 This file contains Literals and macros defining the data structures 

: wb ! found in the internal index pool 

3 ROI94 1 ! ENVIRONMENT: Transportable 

; RO195 1 : 

3 RO196 1 ' AUTHOR: JPK 

3 kRO197 1 : 

; kRO198 1 ! CREATION DATE: January 1982 

; RO199 #1 : 

; RO200 1 ! MODIFIED BY: 

; kRO201 1 ! 

> RO202 1 : 003 JPK00015 04-Feb-1983 

; RO205 1 : Cleaned up module names, modified revision nretery to 

5 tse : } conform with established standards. Updated copyright dates. | 

; R906 1 ‘ 002 JPK00009 24-Jan-1983 

; RO207 1 : Modified to anhence performance. The sort buckets have each 

; kO208 1 : been divided into 27 sub-buckets; 1 for each letter and 1 

3; RO209 1 ! for non-alphas. Removed reference to BUCKET from INDEX. 

; kRO210 1 : Definition of the structure was added to NDXPOL. References 

; RO211 1 : to BUCKET were changed in modules NDXOUT, NDXINI, NDXFMT 

; RO \§ 1 4 and NDXDAT. 

; RO215 1 : 

; RO214 1 !e= 

; RO215 1 
| 
} 
} 
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NDXFMT == Binary index formatter 18-Sep-1984 90:38:17 VAX<11 Bt igs ae V4.0-74 Page 6 
Module level declarations 15-Sep-1984 22:55:26 -$255$DUA28 : CRUNOFF ..SRC JNDXPOL .REQ; 1 (1) 


! Index entry 
SFIELD XE_FIELDS = 
SET 
XESA_PREV = [SADDRESSJ, ! Link to previous item 
XESA_NEXT = LSADDRESSJ, ' Link to next item 
XESA_SUBX = LSADDRESSIJ, ! Sub index pointer 
XESA_REF = (CSADDRESSJ, ! Reference pointer 
KESA_TEXT = RESSJ, ! Pointer to text of index item 
toe apd! AS = ES Pointer to SORT_AS string 


SADDRESS 
SSHORT_INTEGER], Sub index level 


1 

1 

1 

3 

3 
093 
3 
23 


AUS WN OV ONAUSWN—OOONO 


3 1 

3 1 

; 1 

; 1 

$ 1 

; 1 

; 1 

; 1 

; 1 

; 1 

3 1 

: 

; XESV_FLAGS = C$SHORT_INTEGER], ! Entry flags 

; 1 SOVERLAY (XESV_FLAGS) 

; } XESV_BARS = ($81TI, ! Change bar flag 

: $CONT INUE 

; : XESA_BOOK_LIST = (SADDRESS) ! Master index book name List 
: SALIGN (FULLWORD) 

: TES; 

: 5 1 LITERAL 

: r XESK_LENGTH = SFIELD_SET_SIZE; 

: 46 1 MACRO 

; see 1 $XE_BLOCK = BLOCK CXESK_LENGTH] FIELD (XE_FIELDS) 2%; 

: 249 «1 ! End of Index entry 

; kO250 1 

3; kRO251 1 

; O5e8 1 ! Reference entry 

; RO25SS 1 

; RO25S4 1 SFIELD XX_FIELDS = 

hae foe 

> RO257 1 XX$A_LINK = [SADDRESS), ' Link to additional entries 
> RO258 1 XX$A_ APPEND = CS$ADDRESS) | APPEND text pointer 
: 23 } XX$H_PAGE = SSHORT_INTEGER], ! Transaction number 
: 61 XX$V_FLAGS = (S$SHORT_INTEGER), ! Display attributes 
; 0 $8 SOVERLAY (XX$V_FLAGS) 

; 1 XX$V_BOLD = ($817), ! Bold page reference 
; 1 XXSV_UNDERLINE = ($B8ITJ, ' Underline page reference 
: 1 XX$V_BEGIN = ($B81T), ' Begin page range 

; ' XXSV_END = ($B1TJ, ! End page range 

; SCONTINUE 

; 1 XX$A_BOOK = [SADDRESS) ! Master index book name 


16 


XFMT NDXFMT == Binary index f tt 1§- - :58: - - .0- 
yO4~000 Module level declarations = 1 300713 d Peek Bee ey tS Bho: Reo sae _— 


ze 1 
* 1 
@ 1 
a 1 
o 1 
o 1 
; 1 
. 1 
3 1 
3 1 
6 1 
o 1 
; 1 
6 1 
° 1 
; 1 
3 1 
; 1 
3 1 
; 1 
3 1 
; 1 
3 1 
; 1 
; 1 
; 1 
3 1 
6 1 
: 0301 : 
3 1 
° 1 
; 1 
@ 1 
3 1 
g 1 
3 1 
3 1 
3 1 
3 1 
; 1 
; 1 
3 1 
3 1 
3 1 
s 1 
3 1 
g 1 
3 1 
; 1 
; 1 
3 1 
3 1 
; 1 
; 1 
; 1 
3 1 


7 
-Sep-19 -$255$DUA28: CRUNOFF ..SRC JNDXPOL .REQ; 1 (1) 


SALIGN (FULLWORD) 
TES; 


LITERAL 
XXS$K_LENGTH = SFIELD_SET_SIZE; 


MACRO 
$SXX_BLOCK = BLOCK CXXS$K_LENGTH] FIELD (XX_FIELDS) 2%; 


! End of Reference entry 


! Master index book reference entry 
SFIELD XM_FIELDS = 
SET 
XMS$A_L INK = (SADDRESS), ! Link to additional entries 
XM$A_BOOK = [SADDRESSJ ! Pointer to book name 
TES; 
LITERAL 
XMSK_LENGTH = SFIELD_SET_SIZE; 
ACRO 
$XM_BLOCK = BLOCK CXMSK_LENGTH] FIELD (XM_FIELDS) 2%; 
! End of Master index book reference entry 


! Current Entry 
SFIELD C_FIELDS = 
SET 
CS$A_CURR 
C$A_PREV 
C$A_HEAD 
SALIGN (FULLWORD) 
C$V_FLAGS CSINTEGER), ! Current cell flags 
SOVERLAY (C$V_FLAGS) 
C$V_IDNS = ($B81T) ! Identical string flag 
SCONT INUE 
TES; 


LITERAL 
CSK_LENGIH = SFIELD_SET_SIZE; 


SADDRESS), ' Pointer to current cell 
SADDRE S34 ' Pointer to previous cell 
SADDRESSJ, ! Pointer to head of chain 


DDDDDBDBD WMD DVD WWD WW Vw WWD 
felelelelelelelelololalalelolelelelo) =) 
WA AAAAAGAAAAAAAAAAG 
POROMONIPUNUMNUNUR ee 
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NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 VAX=11 Bliss-32 V4.0-74 Pa 8 
Module level declarations 182366718 4 ey VEesSSDUAaB SCRUNOFE SRC NDXPOL .REQ; 1 sf (1) 


MACRO 
$SC_BLOCK = BLOCK CCSK_LENGTH] FIELD (C_FIELDS) 2%; 


! End of current entry 


! 
Dummy datasets 


LITERAL 
DS_X_ ENTRY = XESK_LENGTH, 
DS-XR_ENTRY = XX$K_LENGTH, 
DS-XM-ENTRY = XMSK_LENGTH, 
DS-X_STRING = 0; 


S 


i Structure definition for bucket array. 


Buckets are arranged so that each row represents the first letter of 
the string and each column represents the second letter of the string. 


This approach is used only for master indexes as no performance 
improvement is realised until about 10 input files have been processed. 


Indexes which are not master indexes use only the first element of 
each row, i.e., (0, 0) ... (26, 0). 


' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

‘ The only grcegtion is for porgyenates is characters which use only 
element (0, 0J. Elements (0, -»- CO, 26] are not used since mapping 
: all nonalphabetics into one row loses the sort order of the first 
character in the string. For nonalphabetics to work correctly in a two 
' 

' 

' 

' 

J 

' 

' 

‘ 

' 

S 


DDDDDDBADwDDD 
COOCooCooooooooooooooo 


PAPAIN 
WN O OODNAU EWN 0 OONOUES WN (OO ONOU EWN O 


dimensional bucket scheme, the array would have to be at least 127 x 127 
.: + ~*~ “recs 
QO ** not used ... 
1 A? AA A 
6 


@ 
oo 
o 


Na es Be 
STRUCTUR 
$BUCKET_ARRAY CROW IDX, COL_IDX; M, NJ = 

MN ® ZUPVAC) ($BUCKET_ARRAY + (ROW_IDX * N + COL_IDX) * ZUPVAL); 


{om End of NDXPOL.REQ 
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NDXFMT == Binary index formatter 
Module level declarations 


§379 1 REQUIRE ‘REQ:NDXCLI'; 


Ee 


Sep-1984 
-Sep-1984 


4 22:29:54 


AX=-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJNDXFMT.BLI; 


Page 
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NDXFMT NDXFMT == Binary index formatter Sep-19 :58:17 VAX=11 Bliss=32 V4.0-74 P 10 
v04-000 Module Level declarations if: se0-1984 99328515 _8255$DUA BA28S CRONG OF F .SRCINDXCLI.REQ;1 — (1) 


; RO re ! IDENT = 0V04-00004 

: RO ° i BOSSES E SESE SIO TTT TCT T TTI IT ITI TTI T TTT TILT T TTT Tiiiititt 
; RO \* * 
; kRO382 1 'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; RO383 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . 
: Re Se ! ? ALL RIGHTS RESERVED. nd 
; '® e 
; RO386 1 \e oe i ithe fe FURNISHED UNDER A LICENSE AND MAY BE USED AND sorte * 
; RO387 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; RO388 1 ao. | CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; kRO389 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; kRO390 1 '® OTHE RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; ied : pd TRANSFERRED. * 
: ‘* * 
; RO393 1 '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; RO394 1 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $944 : * CORPORATION. * 
: '® ‘ 
; RO397 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
; RO398 1 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; RO399 1 '® * 
3; kRO4OO 1 '® * 
5 0401 1 LR R RRR 
; RO4O2 1 ! 

; kRO4OS 1 

> RO4OS 1 '+4 

; RO4OS 1 | FACILITY: | 

3 9h) ' DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 

: Art's ' ABSTRACT: INDEX command Line definitions 

3; ROG1O 1 ! ENVIRONMENT: Transportable 

3 ROG11 1 } 

; aig 1 ' AUTHOR: JPK 

3 ROG13 1 : 

3 ROG14 1 ! CREATION DATE: January 1982 

3 ROGIS 1 : 

3 RO416 1 ! MODIFIED BY: 

3 ROGI7 1 : 

; RO418 1 : 004 JPKO00015 04-Feb-1983 

3: RO419 1 : Cleaned up module names, modified revision history to 

3 nest : } conform with established standards. Updated copyright dates. 
; Road 1 ! 003 JPKO00011 24-Jan-1983 

3: ROG 5 1 : eaene CMDBLK NDXSG_ LEVEL] to CMDBLK CNDX$H LEVEL) 

3 ROG26 1 ! Changed CMDBLK NDASH FORMAT] to CMDBLK CNDXS$A_LAYOUT) 

3 ROG25 1 : Changed eae d NDX$V-TMS11] and CMDBLK CNDX$V~ “TEX to CMDBLK CNDX$H_FORMAT] 
: RO426 1 ' Cha anged cpapart sons of (.CHRSIZ EQLA CHRSZA) to 

3 ROG27 1 : (. CMDBLK X$H_FORMAT] EQL TMS11_A). 

; RO428 1 : Definitions were changed in NDXCLT and references to the 

3 RO4G29 1 : effected pre.es were changed in NDXPAG, NDXFMT, INDEX, NDXVMS 
; ape ? : and NDXCLIDMP 

3; ROG § 1 : 002 EROO002 20-Jan-1983 

; RO433S 1 ' Mods tied VMS command Line interface module NDXVMS: 

> ROGS4 1 : = changed /FORMAT qualifier to /LAYOUT. 
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NDXFMT == Binary index formatter 
Module level declarations 


- os A use of /RESERVE and /Reg y RE for DSRPLUS. 
is tee ee ier new DSRPLUS qualifiers /FORMAT and 


added tlds to NOXCLI for new qualifiers: NDX$V_TELLTALE 
an 

Conditionalized output of NDX$V_PAGE_MERGE in NDXCLIDMP to 
account for different DSR and DSRPLUS default values. 


1$cBenct9Re 905817 VARs 


$3734 V4,0-7 
8: CRUNOFE . SRC NDXCLI.REQ; ° 


H 16 
NDXFMT NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 VAX-11 Bliss<-32 V4.0-74 Page 1 
V04-000 Module Level declarations 1 3ep- 1984 22:58:19  “SSSSSDUA2BSCRUNOFF SRCINDXCLI.REG;1 °%* (25 
; ROG4S 1 : 
: ROGGE 1 | NDXCMD_FIELDS 
; ROG4&7? 1 : 
; ROGGE 1 SFIELD ndxcmd_fields = 
> ROGED 1 SET 
; kRO4SO 1 
: sett 1 NDX$V_OPTIONS = CSINTEGER), ! Command option indicators: 
; ROG38 ! SOVERLAY (NDX$V_OPTIONS) 
; ROGSS 1 NDXSV_INPUT_CONCAT = ($81T), ! Input file concatenated to previous 
> RO4S6 1 NDX$V_OUTPUT = ($81T), ' Generate output file 
; RO4S7 1 NDXS$V_REQUIRE = ($B1TJ, ' Require file specified 
; ROGS8 1 $V_PAGES = ($81TJ, ! Include page references in index 
; RO4S9 1 NDX$V_OVERRID = ($B81TJ, ! Override master index information 
; RO4G60 1 NDX$V_STANDARD_ PAGE = ($B1TJ, ' Generate standard page numbers 
; ROG61 1 NDX$V_ CONTINUATION = ($B1TI, ! Generate continuation headings 
; ROG62 1 NDXS$V_GUIDE = ($81TJ, ! Generate guide headings 
; ROG6S 1 NDX$V_WORD_SORT = gBiT. ' Sort entries word by word 
> ROG64 1 NDX$V_LO = ($B81TJ, ! Generate /LOG message 
; RO465 1 NDXS$V_MASTER = ($81TJ, ! Generate a master index 
; ROG66 1 NDXS$V_PAGE_MERGE = ($B1T), ' Merge adjacent page references 
: sleet! ; NDX$V_TELLTALE = ($B1TI, ! Generate telltale headings 
; ROG69 1 SCONTINUE 
; kO470 1 
; RO471 1 NDX$H_FORMAT = pesHOnt INTEGER ' Qutput format: DSR, TMS, TEX 
; ROG72 1 NDX$H_LAYOUT = C$SHORT_INTEGER]), ' Output layout type 
; ROG73 1 NDX$H_NONALPHA = CSSHORT_INTEGER), ' Treatment of leading nonalphas during sort 
; ROG74 1 NDXSH_LEVEL = CSSHORT_INTEGERJ, ! Deepest level to include in index 
; ROG75 1 NDX$G_COLUMN_WID = CS$INTEGER), ' Column width 
; ROG76 1 NDX$G_GUTTER_WID = CSINTEGERJ, ! Gutter width 
3 ROG77 1 NDX$G_LINES PAGE = (SINTEGER), ! Lines per page : ; 
; ROG78 1 NDX$G_RESERVE LINES = CSINTEGERI, ! Number of lines to reserve when requiring a file 
3 RO479 1 NDX$G_SEPARATE WIDTH= CSINTEGER] ! width of reference portion of entry 
; RO48O 1 NDXST-MASTER BOOK = CSDESCRIPTOR(DYNAMIC)], ! Book name descriptor for Master indexing 
; RO4B81 1 NDOX$T_INPUT_FILE = 4 tty pet dled F9L !' Input file name descriptor 
3; RO4GB2 1 NDX$T_OUTPUT_FILE = CSDESCRIPTOR(DYNAMIC)], ! Output file name descriptor 
; ROG8S 1 NDXS$TTREQUIRE_FILE = CS$DESCRIPTOR(DYNAMIC)], ! Require file name descriptor | 
> ROGEG 1 NOXST_RELATED_FILE = CSDESCRIPTOR(DYNAMIC)], ! Related file name descriptor is saved here 
; ROG8S 1 ! by NDXINP for later use by MAKNDX 
3 sty : NDXST_COMMAND_LINE = CSDESCRIPTOR(DYNAMIC)] ! Copy of entire command Line 
; ROG8B 1 TES; 
> ROGB8D 1 ' 
; RO490 1 ! End of NDXCMD_FIELDS 
; RO491 1 : 
3; ROG92 1 
3 ROGIS 1 LITERAL 
3 ROG9Q 1 NDXCMDSK_LENGTH = SFIELD_SET_SIZE; 
; ROG9S 1 
; ets) 1 MACRO 
; sing : SNDXCMD = BLOCK CNDXCMDSK_LENGTH) FIELD (NDXCMD_FIELDS) 2; 
; ROG9D 1 SLITERAL ' Output formats (NDXSH_FORMAT) 
; kO500 1 = $DISTINCT, ' Runoff 
; RO5SO1 1 TMS11_A = $DISTINCT, ! TMS=A 


s-32 V 
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AX-11 BLi 
v04-000 Module level declarations -Sep-1984 -$255$D UA2B: *TRONOFES she NDXCLI.REQ; * 
; RO o¢ 1 Taste = $DISTINCT, ! TMS=E 
: - §? : TEX = $DISTINCT; ! TEX 
: RO5OS 1 SLITERAL ' Qutput Layouts (NDX$H _LAYOUT) 
; RO 1 TWO_ COLUMN = SDISTINCT, ' Normal two column format 
; ROSO? 1 ONE - COLUMN = $SDISTINCT, : pores’ one column format 
3 RR2R8 1 SEPARATE = $DISTINCT, ! seperate reference format 
3 iT : GALLEY = $DISTINCT; \ 11 Galley format 
: RO511 1 SLITERAL ! Treatment of leading nonalphas during sort (NDX$H_NONALPHA) 
3 Rete 1 ere RE = SDISTINCT, ! Leading nonalphas sort before al — 
; ROSIS 1 FTER = $DISTINCT, ! Leading nonalphas sort after alphas 
; Rete : IGNORE = $DISTINCT; ! Leading nonalphas are ignored 
: ROSI6 1 
; kROS17 1 !== End of NDXCLI.REQ 
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v04-000 Module Level declarations 733p- 1982 99:38:44 RUNOFF .SRCIJNDXFMT.BLI; tes (2). 


ie 8819 REQUIRE "REQ:NDXLIN'; 


wore 
v04-000 
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Module level declarations i 13 22:38:22 Y$255$0uK28: 


: IDENT = 0V04-00002 


' 
ESSERE SATIS TEST SET T TTT TT TTT cere e cece rei cic ici criti ici titi iit iti iitiiie 


ie COPYRIGHT (c) 1978 


1980, 1982, 1984 B e 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. ® 
- ALL RIGHTS RESERVED. ~ 
ie THIS SOFTWARE ae FURNISHED wer A at aoe AND MAY BE USED AND COPIED * 
1 LY IN ACCORDANCE WITH SUCH LICENSE AND WITH T * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROV OR OTHERWISE MADE AVAILABLE TO ANY * 
!* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HERE ® 
ee TRANSFERRED. ® 
'® ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. : 
i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
os SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
l esaniaiehienbtbbbensakesecneabanddbenteatbanatiiwmidinianenseneaiabenaiamunen 
' 


1++ 
FACILITY: 
DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 


i ABSTRACT 
Contains output Line type definitions. 


i ENVIRONMENT: Transportable 

{ AUTHOR: JPK 

CREATION DATE: January 1982 

: {| MODIFIED BY: 

002 JPK00010 04-Feb-1983 


Cleaned up module names, modified revision history to 
conform with established standards. Updated copyright dates. 


LITERAL ‘Output Line types: 
BKT_E = 1, iBucket end blank Line 
FILE = 2 ‘FILL Line 
GUIDE = 8, Guide head ing 
GUIDE_FILL = 4, ‘Blank Line after guide heading 
ENTRY_B = 5, ‘Beginning of top level entry 
ENTRY_W = 6, ‘Wrap Line of top level entry 
ENTRY_E = 7, iLas ine of { Sop level entry 
S$UB_B = 8, :Begi nning of subentry 
SUB_W = 9, ‘Wrap Line of subentry 


=32 V4.0-74 
[RUNOFF . SRCINDXLIN.REQ; 1 


Page 


( 


1 
1 


5 
) 


So 
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VOe~000 Module Level dex Larat ions 1 7300-1382 99:38:35 VES SSDUA2ES CRONOFE  SRCINDXLIN.REO; 1 ( 


; ROS77 1 S$UB_E = 10, ‘Last Line of subentry 
; kOS78 1 CONT_HEAD = 11; !Continuation heading 
; kROS79 1 

; kROS80 1 ' 

; kOS81 1 leo End of NDXLIN.REQ 


M16 
NDXFMT NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss-32 V4.0-74 
yOu~000 Module level declarations met 99:38:42 RUNOFF SRCINDAFMT OL 44 


i 188 8888 | REQUIRE *REO:PAGEN’; 


1 
NDXFMT NDXFMT == Binary index formatter 18-5e -1984 00:58:17 VAX=11 Bliss-32 V4.0-74 Pa 18 
v04-000 Module level declarations 1 ~3007 138% HAE "$255SDUA28: CRUNOFE . SRC PAGEN.REQ; 1 2 (1) 


; ROS8G 1 ! : 
: RoR? ! : Version: *v04-000' : 
: ROBY : i eeeeeeeereereeeeeeeeeereneeeneneeeeeeeeeeeeeereeeeeeeerereneeereeeeereneeeee F 
; '® * : 
: i494 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
; k9590 1 '® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * ; 
; thd } \ ALL RIGHTS RESERVED. * ; 
e ° * 

3 Roses 1 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

; ROS94 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH CICENSE AND WITH THE ®* 

; kROS9S 1 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

; ROS96 1 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; kROS97 1 !t OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: RO 388 ' :* TRANSFERRED. ® 

3 it ® 

; RO600 1 't THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; RO601 1 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 nen : :* CORPORATION. bd 

4 ‘® * 

; RO604 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; RO60S 1 '® SOFTWARE ON EQUIPMENT WHICK IS NOT SUPPLIED BY DIGITAL. * 

° RO606 1 '® ® 

rf RO0607 1 'e ke 

4 RO608 1 MASS SS SSSI CISC STITT eT eee r eee c TTT TTT IT TTT TTT ITT TTT T TTT TTT tiiiitt 

3 RO0609 1 ' 

; kRO610 1 

; RO611 1 'e¢ 

3 9h : FACILITY: ISR (Digital Standard RUNOFF) / DSRPLUS 

: RO614 1 i ABSTRACT: 

; RO615 1 : A page number carries with it not only its current value, but also 

; RO616 1 ‘ codes as to how those values are to be displayed when they are finally 

3; RO617 1 ! oureut. It was decided to do it this way rather than have a separate 

3 aoels ! table so that the program TCX would have less trouble. 

: R0620 | ENVIRONMENT: Transportable BLISS 

: RO622 1 i AUTHOR: Rich Friday 

3 noes 1 ! 

; RO624 1 ' CREATION DATE: 1978 

; RO625 1 ! 

; ave $ : MODIFIED BY: 

> RO626 1 i 004 KAD00004 Keith Dawson 07-Mar-1983 

3; RO629 1 ! Glebal edit of all modules. Updated module names, idents, 

3 ane ; : copyright dates. Changed require files to BLISS library. 

: Rose 1 ine 

: ROO 1 

3 siete: 1 LITERAL 

: aoe 5 : page_sct_size = 4; 

: ROO 1 LITERAL ‘Type of section: 

3; R06 1 sct_chapt = 1, ' Chapter section. 

: ROO 1 sct_index = ¢: ' Index section, 

; RO640 1 sct_append = 3; ! Appendix section. 


e 
| 
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NDXFMT NDXFMT == Binary index formatter 1§-sep-19 4 90:38:17 yet Bliss-32 ys snes Page 19 
v04-000 Module level declarations 15-Sep-1984 22:53:51 -$255$DUA28 : CRUNOFF .SRCJPAGEN.REQ; 1 (1) 
; RO641 1 
; RO642 1 LITERAL 
> RO64S 1 sct_low =i, ! Lowest section type key. 
; RO6G4 1 sct_high e 33 ! Highest section type key. 
; RO645 1 
; ngese 1 MACRO 
; RO647 1 sct_typ - 0, 0, 4, 0 %, ! Section Type (zero if none). 
; RO648 1 Sct_page_d = 0, 4 4 0 %, ! Display code for page number. 
> RO649 1 sct_sub_page = 0, XBPVAL/2, XBPVAL/2, 0 x. | Subpage, if any (zero if none). 
; R0650 1 sct_number = 1, 0, ZBPVAL, 0%, ! Type of section number. 
; kRO651 1 sct_page = 2, 0, X%BPVAL, %, ! Page number. 
3 Roees 1 sct_su pg_d es 3. Gy 4, %, ! Display code for subpages. 
; RO655 1 sct_chapt_.d = 3, 4, 4, %, ! Display code for chapters. 
; RO6S4 1 sct_appen.d = 3. 8 4, 0 %, |! Display code for appendices. 
: RO65S 1 sct_index-d = 3, 12, 4, 0%; | Display code if indexes. 
; RO656 1 
; kRO657 1 MACRO 
3 R00 38 } sct_run_page = 3, XBPVAL/2, X%BPVAL/2, 0 %; ! Running page number. 
; R0660' 1 MACRO 
3 apee) : page_definition = BLOCK Cpage_sct_size] %; 
: Roces 1 : End of PAGEN.REQ 


NDXFMT == Binary index formatter 
Module level declarations 


64 1 
L ees 1 RIF XBLISS (BLISS32) 
2° : ZTHEN 
068 1 REQUIRE ‘REQ:NDXVMSREQ'; 


ie 


Sep-1 
Vergepn) 


9B 98:39:54 


AX-11 Bliss-32 V4.0- 
RUNOFF ..SRCJNDXFMT.BL 


174 
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v04-000 Module Level declarations -Sep-1984 RUNOF Pa bie Snbavichea. AS, 31 — i 


RO669 ' 
noord Version: *v04-000' 
s's94 Cee eer aN cemesnee iui mene a enecmmmenernee gr 
3 .* * 
R0674 'w COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
RO675 '® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 
Ree! is ALL RIGHTS RESERVED. * 
° ® 
R0678 '® ie i ieie te FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
RO0679 '‘® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
R0680 'w INCLUSION OF tHe ABOVE Sagittal NOTICE. THIS SOFTWARE OR ANY OTHER * 
R0681 '® COPIES THEREOF MAY NOT BE PROV VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
RO68 'w QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
sine t = TRANSFERRED. * 
'® * 
RO685 '® He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
RO0686 ‘®t AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
sive tf * CORPORATION. * 
‘® ® 
RO0689 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF [TS * 
se 2 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
4 *® 
RO69 '® * 
9 0k s CHEERS SNARE HANNE TET HRSRRNSTESRAsSERSEHeeTHNNRNNEseTHeENENNESRSeMNNRETORNEOR 
RO695 
R0696 '+¢ 
i FACILITY 
sds 4 i DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 
RO700 ABSTRACT: 


This file contains external references tc the error message numbers 
for DSRINDEX/INDEX. 


New messages must be defined in NDXVMSMSG.MSG and referenced here 
both in the MACRO section (for DSRINDEX) and the EXTERNAL LITERAL 
section (for INDEX) 


ENVIRONMENT: VAX/VMS User Mode 
AUTHOR: JPK 
CREATION DATE: 01-Feb-1983 
MODIFIED BY: 
004 JPK00022 30-Mar-1983 
Modified NDXVMS, NDXFMT, NDXPAG, NDXVMSMSG and NDXVMSREQ 
to generate TEX output. Added module NDXTEX. 
003 PK00021 ce-fer ieee 
Modi tied NDXT20 to include E2.0 functionality. 
Modified NDXCLIDMP, NOXTRT, NDXPAG, NDXVRS to require RNODEF 


for BLISS36 and to remove any conditional require based on 
DSRPLUS_DEF. 


NOUS et 


o 1 
; 1 
; 1 
; 1 
° 1 
rT] 1 
; 1 
° 1 
@ 1 
; 1 
o 1 
ra 1 
; 1 
oO 1 
; 1 
: 1 
8 1 
o 1 
: 1 
: 1 
; 1 
6 1 
o 1 
e 1 
; 1 
; 1 
: 1 
° 1 
; R0697 ! 
; 1 
e i 
; 1 
; 1 
; 1 
° 1 
; 1 
@ 1 
e 1 
eo 1 
3 1 
o 1 
6 1 
o 1 
o 1 
@ 1 
6 1 
: 1 
o 1 
° 1 
3 1 
3 1 
3 1 
; 1 
; 1 
; 1 
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NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss-32 V4.0-74 Page 22 
Module level det larat ions 18-82-1382 90:28 Ys RUNOFF .SRCJNDXVMSREQ.R52;1 ° (4 


Ss 


! 002 JPK00010 04-Feb-1983 
‘ Cleaned up module names, modified revision history to 
: conform with established standards. Updated copyright dates. 


REQUIRE "REQ:RNODEF'; 


NDXFMT NDXFMT -- Binary index formatter 18-5 Sep-1984 VAX-11 Bliss<-32 V4.0-7 Pa 3 
yOu-000 Module Level declarations 300-1 3B 99: f:4 $25 StSD GASES : CRUNOFF . Ske RNODEF .REQ;1 we f 


; kRO7T33 1 ' $ 
3 noe ¢ } Version: *v04-000' : 
: Re? § ; i eee eee ee eee ee eHeeReHeeeeeeeeeeeeeeeeeeneeeeeereeeereneeeeeeeeeeeeeeneeeee : 
; OR '® ” 3 
: kO738 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY y s 
: RO739 1 is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . ; 
5 Rorey ‘ o ALL RIGHTS RESERVED. . : 
: RO?4g 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED : 
; RO74 1 'w ONLY IN ACCORDANCE WITH TH SUCH Lie ote NSE AND WITH THE * $ 
; RO744 1 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY THER * ; 
; kRO745 1 'w COPIES THEREOF MAY NOT BE PR E THERWISE MADE AVAILABLE TO ANY * 3 
; RO746 1 '® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ 
3 SoH : :* TRANSFERRED. * 3 
4 'f ® s 
; RO749 1 'e He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; kO750 1 't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
; sed ; Ps CORPORATION. * F 
° . * Ps 
5 Roe 1 's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * b 
; kRO754 1 'w SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * b 
; kO755 1 'e * 3 
; kO756 1 'e * 3 
3 RO757 I YR ARR ERA AREA AREA EEE EAE RREKERREEE P 
; kO758 #1 ! 3 
; kO75S9 #1 F 
; kO760 1 '¢¢ : 
: thd : FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS : 
: RO763 1 i ABSTRACT: F 
: ithe! : Converts BLISS/VARIANT values into useful names. : 
: RO766 1 i ENVIRONMENT: Transportable BLISS ; 
3; RO767 1 ' 3 
3; RO? 1 ! AUTHOR: Rich Friday : 
3; RO769 1 ' 3 
; RO770 1 ! CREATION DATE: 1978 

; kRO771 1 ! 

; kO77 1 ' MODIFIED BY: 

; kO7735 1 ! 

; kRO774 1 ! 016 KAD00016 Ray Marshall 19-Mar-1984 

3 see ! Added GERMAN, FRENCH, & ITALIAN. 

: Ropes 1 i 015 KAD00015 Keith Dawson 18-Apr-1983 

; kO778 1 ‘ Made the LNO1 conditional the default for vanilla DSR -- 

: th : its value is 0 (no variant supplied). 

: R078 1 1 i 014 KAD00014 Keith Dawson 22-Mar-1983 

3 if $ : Asserted the LNO1 conditional when DSRPLUS is asserted. 

: oraz 1 i 013 KAD00013 Keith Dawson 20-Mar-1983 

: RO78G ! Removed all references to .BIX and .BIC files. 

: RO787 1 i 012 KAD00012 Keith Dawson 07-Mar-1983 

; kRO788 1 : Global edit of all modules. Updated module names, idents, 

3; kRO789 1 : copyright dates. Changed require files to BLISS library. 


NDXFMT 


-000 


H 1 
NDXFMT == Binary index formatter 16-Sep-1984 00:58: 
Module level declarations i8 300-138 90:38: 


$25580UA28 : CRUNOF 


le4 

DEFINITION OF /VARIANT BITS 

The bit assignments are as follows: 

| Bit Weight neenare 

i -- 0 9 /VARIANT is supplied (as for vanilla DSA), 
: ® ile with LNO1 su ger’. LNO1 support is also. 
mplied by the DSRPLUS variant. 

i 0 1 CLEAR = Unassigned 

SET = Unassigned 

i 1 2 CLEAR = Normal compile 

SET = Compile for DSRPLUS 

i 4-6 = 16 CLEAR = English (American) version 

: SET = 16 = German (Austrian) 

! 32 = French 

} 48 = Italian 


This variable (LNO1) controls whether or not to compile an LNO1-flavored 
DSR. It is asserted by default, and also whenever DSRPLUS is asserted. 


Modules utilizing LNO1 are: 
DOOPTS NOUT 
COMPILETIME 
C CAVARIANT EQL 0) OR %VARIANT/2 ) 


This variable (DSRPLUS) controls compilation for the DSRPLUS program. 
i ALL modules utilize DSRPLUS. 
COMPILETIME 


srplus = 
( ZVARIANT/2 ) 


i This variable (FLIP) controls compilation of FLIP features ry DSRPLUS. 
It assures that FLIP features are compiled only on VMS systems. 
' 


Modules utilizing FLIP are many and various. 
COMPILETIME 
flip = 


CRUNOES she RNODEF .REQ;1 


dpa 


1 
NOXFMT NDXFMT == Binary index formatter 15- Sep-1984 2 98: 2:58:17 X-11 Bliss-32 V4.0-7 Page 
v04-000 Module level declarations 15-Sep-1984 54:08 VS ISSSDUAIB CRUNOFF . She RNODEF .REQ;1 B 
; ROB47 2 ( ZVARIANT/2 AND %BLISS(BLISS32) ) 
3; ROBGB 1 ; 
3 ROB4D 1 
3 R0850 1 ' CSS S&S SSS SSS SH TGs Sew Bene BB OSSD Be SOS eens er scene wtowenwoaena aes ep ee ee ee Se ee 
; RO851 1 ' 4-6 16 CLEAR = English (American) version 
$ noes 1 ! SET = 16 = German (Austrian) 
; kROB5S 1 ! 32 = French 
3 ROBS4 1 ' = Italian 
; kRO8SS 1 COMPILETIME 
: kROBS 1 German = ( ZVARIANT/16 AND NOT X%VARIANT/32 AND NOT 2VARIANT/64 ) ; 
; RO8S7 1 COMPILETIME 
; ROBS 1 renc = ( NOT ZVARIANT/16 AND %VARIANT/32 AND NOT %2VARIANT/64 ) ; 
; kROBS 1 COMPILETIME 
; noaee : Italian = ( XVARIANT/16 AND XVARIANT/32 _AND NOT BVARIANT/64 4 
; ROB62 | ! End of RNODEF.REQ 


J 1 
NOXFMT NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss-32 V4.0-74 
v04-000 Module Level dot Leret ions 1 ae 1 APE RUNOFF SRC INDXVMSREQ.R 2:1 
3 1 
s 1 Z%IF_ NOT DSRPLUS 
; : XTHEN 
; 1 MACRO 
: 1 INDEX$_BADLOGIC = DSRINDEX$_BADLOGIC %, 
; 1 INDEX$S_BADVALUE = DSRINDEXS$_BADVALUE i, 
; 1 INDEXS_INSVIRMEM = DSRINDEXS_INSVIRMEM %, 
; 1 INDEXS_LINELENG = DSRINDEXS_LINELENG %, 
; 1 INDEXS$_NOREF = DSRINDEXS_NOREF i, 
; 1 INDEX$_OPENIN = DSRINDEXS$_OPENIN z, 
; 1 INDEX$_OPENOUT = DSRINDEXS$S_OPENOUT i%, 
: 1 INDEX$_TO = DSRINDEXS$S_TOOMANY i, 
; 1 INDEX$-VALERR = DSRINDEXS"VALERR =‘, 
3 1 INDEX$_CANTBAL _ = DSRINDEXS_CANTBAL_ i, 
; 1 INDEX$_CLOSEQUOT = DSRINDEXS$_CLOSEQUOT 2%, 
; 1 INDEXS_CONFQUAL = DSRINDEXS_CONFQUAL 2%, 
; 1 INDEX$-CTRLCHAR = DSRINDEXS-CTRLCHAR %, 
3 1 INDEXS_DOESNTFIT = DSRINDEXS_DOESNTFIT %, 
3 1 INDEX$_DUPBEGIN = DSRINDEXS$_DUPBEGIN %, 
: 1 INDEXS_EMPTYIN = DSRINDEXS_EMPTYIN 2%, 
; 1 INDEXS_IGNORED = DSRINDEXS_IGNORED i, 
; 1 INDEX$_INVINPUT = DSRINDEXS-INVINPUT %, 
; 1 INDEXS_INVRECORD = DSRINDEXS_INVRECORD %, 
: 1 INDEX$_LASTC = DSRINDEXS$_LASTCONT 2%, 
3 1 INDEXS_NOBEGIN = DSRINDEXS$_NOBEGIN 1%, 
3 1 INDEX$_NOEND = DSRINDEX$_NOEND z, 
: 1 INDEXS_NOINDEX = DSRINDEXS_NOINDEX 2%, 
: 1 INDEXS$_NOLIST | = DSRINDEX$"NOLIST %, 
3 1 INDEXS_OVERSTRK = DSRINDEXS$_OVERSTRK i, 
; 1 INDEX$_SKIPP = DSRINDEXS_SKIPPED i, 
; 1 INDEXS$-SYNTAX = DSRINDEXS"SYNTAX = %, 
; 1 INDEXS_TEXFILE = DSRINDEXS_TEXFILE %, 
: 1 INDEX$_TOODEE = DSRINDEX$_TOODCEP %, 
: 1 INDEX$_TOOF = DSRINDEX$_TOOFEW z, 
; 1 INDEXS_TRUNCATED = DSRINDEXS$_TRUNCATED 2%, 
: 1 INDEX$_COMPL = DSRINDEXS_COMPLETE 2%, 
3 1 INDEX$_CREATED = DSRINDEXS$_CREATED i, 
; 1 INDEX$_IDENT = DSRINDEXS$_IDENT z, 
: 1 INDEX$_PROCFILE = DSRINDEXS_PROCFILE i, 
3 1 INDEXS$_TEXT = DSRINDEXS_TEXT z, 
Z 1 INDEX$_TEXTD = DSRINDEXS_TEXTD z, 
; : INDEX$_TMS11 = DSRINDEX$_TMS11 z; 
; ; 2FI 
; 1 EXTERNAL LITERAL 
: j INDEX$_BADLOGIC, ! <internal logic error detected> 
3 1 INDEX$_BADVALUE, ! <"!AS' is an invalid keyword value> 
; 1 INDEX$S_INSVIRMEM,  ! <insufficient virtual mengry? 
; 1 INDEXS$_LINELENG, ! <maximum Line Length is 120 
3 1 $_NOREF , ! <page reference not found> 
3 1 INDEX$_OPENIN ! <error opening '!AS' for input> 
; 1 INDEX$OPENOUT , ' <error opening ‘!AS* for output> 
3 1 IN . TOOMANY , ! <too many values supplied? 
3 1 INDEX$_VALERR, ! <specified value is out of legal range> 
3 1 INDEX$_CANTBAL, ! <can't balance last page> 


1 
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; kRO920 1 INDEXS$S_CLOSEQUOT, |! <missing Frese quote? 
; RO921 1 INDEX$_CONF QUAL, ! <conflict ng qualifiers> 
; ROD ¢ 1 INDEXS_CTRLCHAR ! <the following Line contains contre} characters = ignored> 
: RO9SS 1 INDEXS-DOESNTFIT, | <"!AaD' will not fit at the current ndentation level> 
; RO924 1 INDEX$_DUPBEGIN, ! <duplicate oXELUS (BEGIN) = inserted as .XPLUS ()> 
; kRO925 1 INDEXS_EMPTYIN, ! Senety input file "!AS'> 
; RO926 1 INDEX$_ IGNORED ! <"!AS" ignored> 
: RO927 1 INDEX$S~INVINPUT i <invalid input file format in file '!AS'> 
; R098 1 INDEX$-INVRECORD, i <invalid record type in file '!AS'> 
; kRO929 1 OES ALAS TEONT ! <can't generate continuation heading on Last page> 
; kO950 1 INDEX$_NOBEGIN, ! <.XPLUS (END) with no .XPLUS (BEGIN) = inserted as .XPLUS ()> 
; kRO93S1 1 INDEX$_NOEND H <.xPLUS hag bot has no correspend ing -XPLUS (END)> 
; ROD ¢ 1 INDEXS$-NOINDEX, ! <no index information in file ‘!AS' 
; ROD 1 INDEX$_NOLIST ! <parameter List not allowed> 
; RO9S4 1 INDEX$_OVERSTRK, ! <the following Line contains an overstrike sequence> 
; kO935 1 INDEX$_SKIPPED, ! <!UL reference!%S inside page range - ignored> 
; RO936 1 INDEXS_SYNTAX ! <error parsing ‘!AS'> 
; RO937 1 INDEXS_TEXFILE, ! <error processing Line !UL of TEX character file '!AS'> 
; RO938 1 INDEX$_TOODEEP, ! <maximum subindex depth exceeded> 
; RO939 1 INDEX$_TOOFEW ! <not enough values supplied> 
: RO94O 1 INDEX$-TRUNCATED, i! <string too long = truncated> 
; RO941 1 INDEX$_ COMP ‘ ! <processing complete "!AS'> 
; RO942 1 INDEX$_CREATED, ! <"!AS* created> 
; RO943 1 INDEX$_IDENT ! <INDEX version !AD> 
> ROM 1 INDEX$-PROCFILE, | <processing file '!AS'> 
; ROMS 1 INDEXS_TEXT, i <!as> 
>; RO946 1 INDEX$_TEXTD, ! <entry text: ‘!AD'> 
3 of : INDEX$_TMS11; ! <output file full = continuing with file ‘!AS'> 
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RIF XBLISS (BLISS36) 
THEN 


ccecr 


REQUIRE 'REQ:RNODEF'; 


SWITCHES LIST (NOREQUIRE); 


MACROS: 
MACRO 
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Don't quote the character, and it doesn't count visually. 
NQCHAR_NC (X) = 

BEGIN 

CHSWCHAR_A(X, WORD_POINTER); 

INT WORD LENGTH = TINT_WORD_LENGTH + 1; 


' 
Don’t quote the character, and it does count visually. 
NQCHAR_C (X) = 

BEGIN 

NQCHAR_NC (X) 


EXT_WORD_LENGTH = .EXT_WORD_LENGTH + 1; 
TMS“WORD LENGTH = .TMS"WORD-LENGTH + .CHRSIZ CX); 


! 
Quote the character; it doesn't count visually. 


QCHAR_NC (X) = 
BEGIN 


: Quote the character; it does count visually. 
QCHAR_C (X) = 
BEGIN 
NQCHAR_NC (ZC'_'); 
NQCHAR_C (X); 
END 


' 
: Special macro to keep track of the backspace control character. 


BACKSPACE (xX) = 


4 RUNOFF ..SRCJNDXFMT.BL 
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M 1006 BEGIN 
4 QCHAR_NC (X); 
8 : EXT WORD LENGTH = .EXT_WORD_LENGTH = 1; 


Clear the text Lines being built up. 
CLR_RNO_LINE (_) = 
BEGT 


LINE POINTER = CHS$PTR (RNO_LINE); 
INT_CINE_LENGTH = 0; 


es 


SOOWONAUE WN (CO ODONOUES WN “OOO NOUL WHO 


EXT-LINE-LENGTH = 0; 
TMS_LINE-LENGTH = 0; 
END z, 


Clear the word being built 


SELLE 
uw 


fe 
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; 1 1 

8 1 1 

3 1 1 

: 1 1 

: 1 1 

3 1 1 

: 1 1 

: 1 1 

: 1 1 

8 1 1 

: 101 1 

: 101 1 

: 101 1 

: 1019 1 

; 1020 1 

: 1 1 

3 1 1 

3 1 1 

: 1 1 ! 

; m1 1 CLR_RNO_WORD (_) = 

> 26 “1 1 BEGIN 

; 24 41 1 WORD POINTER = CHSPTR (RNO_WORD); 

: 25 m1 1 INT_QORD_LENGTH = 0; 

: 5 41 4 EXT_WORD_LENGTH = 0; 

4 5 41 1 TMS _WORD_LENGTH = 0; 

; @ m™ 1031 1 HYPRENATE = FALSE; 

; 1032 1 END i, 

- 2 1035 1 

a. 1034 1 } 

3 3 ' ; ; Write a Line to the output file 

. we 41 H 1 PUT_LINE (S) = 

3 $ \ ; ' $XPO_PUT (10B = OUTIOB, STRING = S) %; 
3 $6 1040 1! 

3 6 1041 1 ! EQUATED SYMBOLS: 

: 264 1 ry | 1! 

; 265 1045 1 LITERAL 

3 68 1044 1 TRUE = 1 

> 26 1045 1 FALSE = 6; 

: 268 1066 1 

: 269 + 1 LITERAL : 
; : 3 ‘ TMS _SAFETY_MARGIN = 4; ! Subtracted from # chars / Line to avoid wrapping 
3 i; 1050 1! 

:; e7 1051 1 ! OWN STORAGE: 

: 274 1 26 1! 

; 275 1053 1 : 
: g ' 32 : BLANKS : INITIAL (CHSPTR (UPLIT (' "))); ' Pointer to blanks 
3 8 1 36 1 OWN 

: 1087 1 LINE POINTER 

: 1 58 1 RNO_CINE : VECTOR CCHSALLOCATION (1200), 
: 1 1059 1 INT_LINE_LENGTH, 

: ; 1060 1 EXT_LINE_LENGTH, 

: 1061 1 TMS_LINE_LENGTH, 

: 1062 1 LINE_TYPE, 


N 
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85 PAGE WIDTH; 


OWN 
DOING_LAST; 


TRUE if processing last line 


CwN 
SAVE_ENTRY : INITIAL (FALSE); 


TRUE if saw guide head at top of left page 
' 


EXTERNAL REFERENCES: 


Moronory 
oo0ono 
ws 


EXTERNAL LITERAL 
T : UNSIGNED (8), 


— 
=z 
nw 
vr 
=m 
o 

— 


: Average TMS character size 
! TMS ‘em’ space size 


Fd 
Ginx 
> 
oO 


E. 
RINTES : UNSIGNED (8); 


CMDBLK : SNDXCMD, ! Command Line information block 
: Length of version string 
! CHSPTR to worg7en string 


! Output file | 


! Index Level 

! erry stack for storing back Links 
' Hashing buckets 

! T™MS11 character size vector 

! Usuable Lines per page 

' Number of Lines in Left column 

! Number of Lines in right column 

! Number of Lines in temp column 


za 
Co 
=< 
-—<< 
» 
8 


OUTIOB’: $XPO_10B () 
LSTPTR : REF SXE_BLOCK, 


1 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 : VECTOR 

1 BUCKET : $BUCKET_ARRAY (27, 27), 
: CHRSIZ : REF VECTOR, 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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> 
- 
- 
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TCOUNT, 


NOTE: The vectors and blockvectors below have two extra entries allocated 
to avoid needing to subtract 1 all the time (for entry zero), 
and so that there will always be an available Line at the end of the column 


LTYPE : VECTOR 
LLINES : BLOCKVECTOR C, STRSK_D_BLNI, 
RTYPE. : vEC OR 
RLINES : BLOCKVECTOR C, STRSK_D_BLN), 
TTYPE : VECTOR 
TLINES : BLOCKVECTOR C, STRSK_D_BLNI; 


EXTERNAL ROUTINE 
ZIF BLISS (BLISS32) 
THEN 


' Left column Line types 

' Left column string descriptors 
' Right column Line types 

! Right column string descriptors 
} soe sosynn Line types 


Right column for Last page 


WPIPIMININPININPININID 2 3 2 FO OS | SH DOOOOOCSCOCOOOVOO 


OPEN_ERROR, ! File open error processor 
aFl 

ENTMSG : NOVALUE, 

LASTPG : NOVALUE, 
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1120 


—> ht 


PACBAS, 


PUTPAG. : NOVALUE, 
TMSINI : NOVALUE, 
THSPUT : NOVALUE, 


. 
° 
. 
° 
- 
° 
a 
. 
o 
7 
° 
7 
° 
. 
° 
° 
. 
° 
. 
e 
e 
° 
. 
° 
o 
° 
o 
ce 
. 
o 
7 
° 
. 
o 
. 
° 
. 
6 
* 
° 
. 
S 
. 
* 
+ 
o 
. 
oc 
. 
° 
o 
° 
. 
e 
o 
° 
+ 
co 
. 
e 
o 
6 
. 
° 
es 
o 
. 
oO 
* 
° 
. 
° 
o 
o 
* 
° 
7 
e 
. 
e 
. 
6 
. 
vu 
. 
° 
. 
° 
o 
° 
. 
7 
° 
. 
e 
. 
° 
2 
° 
a 
a 
© 
6 
° 
° 
. 
o 
e 
° 
. 
° 


PASM MAVIVIVIVIVIVT 


18 


SSSELEALAN AS SANOAE 


oo 
wr 


WAAAY AN. AAA AAA A AAA ANA 


SE 


og 
Pa 
abnal 


WN S OONOA UE WIN $9 OD MIAME WIN —$ O OOD NAOU EWN $0 ODNAUSWWA COON UE WW —OV00 


See NN ln ict oe ab nine en ees: SEB IEEE EEE WINN 
PIPPIN IPMN DMN NIN IN) a tt a a nk tk tk tt tk tk tt tt tt tt tt 


MT == Binary index poraeniee 1 - 
MT == Build output index from internal inde 5-Sep- 
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ZSBITL "NDXFMT == Build output index from internal index’ 
GLOBAL ROUTINE NDXFMT : NOVALUE = 


'4 


» 
FUNCTIONAL DESCRIPTION: 


This routine is the top-level control routine of the formatting 
procedure. 


If output is being generated for RUNOFF, a ‘’standard’’ RUNOFF 
environment is set up. 


If a require file was specified, it is copied to the output file. 
Each bucket of the binary index is then examined to form the 

output index. The nonalpha bucket is examined first if either 
/SORT=NONALPHA=BEFORE or /SORT=NONALPHA=IGNORE were specified 

on the command Line. Otherwise, the nonalpha bucket is examined Last. 


FORMAL PARAMETERS: 


None 
IMPLICIT INPUTS: 
CMDBLK - Command Line information block 
IMPLICIT OUTPUTS: 
INDLVL - subindex level 
PAGE WIDTH - width of output page : 
ALLOQ@D - number of Lines allowed on first page of index 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 
None 


BEGIN 

OCAL 
DSC_PIR : REF $STR_DESCRIPTOR (), 
CMD-PTR, 
PTR: 

' 

Initialization 

LCOUNT = 0; 

REOUNT = 0: 

DOING_LAST = FALSE; 
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ht -CMDBLK CNDX$H_LAYOUT) OF 
CSEPARATE): 


. 
| 
| 
| 
| 

PAGE WIDTH = .CMDBLK CNDX$G_COLUMN_WID] + .CMDBLK CNDX$G_GUTTER_WID] + .CMDBLK CNDX$G_SEPARATE_WIDTH | 

CTWO_ COLUMN): 
| 
j 
| 
| 


PAGE_WIDTH = (2 * .CMDBLK CNDX$G_COLUMN_WIDJ]) + .CMDBLK CNDX$G_GUTTER_WIDJ; 


COTHERWISE): 
PAGE_WIDTH = .CMDBLK CNDX$G_COLUMN_WID); 


1 
' 
! Change ‘<' to ' 
! Change ‘>* to ' 
Change ';' to ‘.' 


i Reformat command tire before outputting. 


= CMDBLK CNDX$T_COMMAND LINE; 
CMD"LEN = .DSC_PTR CSTRSH_LENGTAI: 
= .DSCIPTR CSTRSA-POINTER); 


WHILE NOT CHS$F 


L_ (PTR = CHSFIND_CH (.CMD_LEN, .CMD_PTR, %C'<")) DO 
CHSWCHAR “o «PTRI3 


C*, 


WHILE NOT CH$ 


( 

FAIL_(PTR = CHSFIND_CH (.CMD_LEN, .CMD_PTR, %C'>")) DO 
CHSWCHAR ( ; 

F 

( 


. - 

L R = 
‘J', .PTR) 
L (PTR = 
ee e 


WHILE NOT CHS 


A 
4 
A 
= 
A 
CHSWCHAR (% 


I 
C 
I 
C 
i onee tae oe (.CMD_LEN, .CMD_PTR, %C*°;")) DO 
' 
Compute number of Lines allowed on first page 
if .CMDBLK CNDX$G_RESERVE_LINES] NEQ 0 
THEN | 

i Number of Lines on first age is Lines per page 

minus number of reserved Lines. 

ALLOWD = .CMDBLK CNDX$G_LINES_PAGE] - .CMDBLK CNDXS$G_RESERVE_LINES] 


ELSE 
BEGIN 
IF .CMDBLK CNDXSH_FORMAT] EQL DSR 
f ALLOWD = .CMDBLK CNDX$G_LINES_PAGE] - 4 ! Default for RUNOFF 
ALLOWD = .CMDBLK CNDX$G_LINES_PAGE] - 22; ! Default for TMS and TEX 
END; 


' a 
! Write output dependant prologue 


ccccr 
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SELECTONE .CMDBLK CNDXSH_FORMAT] OF 


CDSR): 
BEGIN 
i RUNOFF output 


Generate a ‘‘standard'’ RUNOFF environment. 


ZIF DSRPLUS 
XTHEN 
PUT_LINE ($STR_CONCAT ('.! INDEX version ', (.NDXVRL, .NDXVRP))); 
ZELSE 
PUT_LINE ($STR_CONCAT ('.! DSRINDEX version ', (.NDXVRL, .NDXVRP))); 
“FI 
PUT_LINE ($STR_CONCAT (*.! ', .DSC_PTR)) 
PUT“LINE (*. SAVE"); 
PUTLINE ('.NO FLAGS ALL'); 
PUT“LINE (*°.NO FLAGS BREAK «NO FLAGS CAPITALIZE .NO FLAGS ENDEOOTNOTE'); 
a (*.NO FLAGS HYPHENATE “NO FLAGS INDEX NO FLAGS LOWERCASE ); 
PUT“LINE (*.NO FLAGS PERIOD .NO FLAGS SPACE .NO FLAGS SUBSTITUTE’) 
PUT“LINE (*.NO FLAGS UPPERCASE'); 
PUT“LINE (*.FLAGS ACCEP LAGS BOLD * -FLAGS COMMENT !"); 
PUT“LINE (*. FLAGS OVERSTRIKE % FAs UNDERLINE &'); 
PUT“LINE (*.FLAGS ALL"); 
PUT“LINE (*.NO FIL .NO JUSTIFY"); 
PUT ( 


LINE 

“SSTR_CONCAT ( 

* LEFT MARGIN 0 «RIGHT MARGIN ', 
SSTR_ASCII (PAGE WIDTH), 


“PAGE SIZE , *, 
SSTR_ASCII (.PAGE_WIDTH) 
); 
PUT_LINE (".NUMBER INDEX .NUMBER PAGE 1 FIRST TITLE"); 
IF .CMDBLK CNDXS$V_TELLTALE 
THEN 
BEGIN 
! Generate prologue to set up for /TELLTALE 
bur eLINE (* LAYOUT 2,2"); 
PUT“LINE (*. TITLE’ 
PUT CINE (*2SUBTITLE"); 


: 
: 


IF .CMDBLK CNDXS$H_LAYOUT] EQL GALLEY THEN PUT_LINE (".NO PAGING"); 
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NDOXFMT NDXFMT -- Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss-32 v4.0-74 Page 35 
v04-000 NDXFMT == Build output See ies internal inde g7360713 4 99335 :b/ RUNOFF -SRCINDXFMT-BLI: . (3 
; ; ¢ } 38 END; 
: 524 1 a C7MS11_A, TMS11_E): 
2 2 i 8S ; t THS11 headi | 
; ' Generate eadin 
3 2 $ 1304 : . | 
3 é 8 1305 TMSINI (); 
: 9 1 Bg | 
3 2 0 130 CTEX]: 
; 531 1308 BEGIN | 
. ¢ 1309 ! 
3 2 ? \ 19 ; Generate a heading for TEX 
2 233 1 \§ PUT_LINE (S$STR_CONCAT (°% INDEX version ‘, (.NDXVRL, .NDXVRP))); 
; 3m 131 PUT_LINE (S$STR_CONCAT ('% ', .DSC_PTR)); 
3 Sor 1314 PUT_LINE (*\twocolindex'); 
s $38 1315 END; 
; 539 1316 
; 540 1317 TES; 
3; «541 1318 
3 246 1319 2 DSC_PTR = CMDBLK CNDX$T_REQUIRE_F ILE]; 
; 344 1321 : IF ;,CMDBLK CNDX$V_REQUIRE] AND (.DSC_PTR CSTRSH_LENGTH] GTR 0) 
s 5646 1358 BEGIN 
3: 547 1324 ' 
; 548 1325 ! User specified a require file. Insert it here. 
3: 549 1326 ! 
3: 550 1327 LOCAL 
; 231 1328 REQUIRE_10B : $XPO_I0B (); 
: Ss 1330 $XPO_I0B_INIT (I0B = REQUIRE_10B); 
; 554 P 1331 $XPO-OPER (108 = Metts he are FILE SPEC = .DSC_PTR 
; 335 P 1332 ZIF XBLISS (BLISS32)"XTHEN , FAILURE = OPEN_ERROR %F1 
: 557 1334 . 
; 558 1335 WHILE $XPO_GET (10B = REQUIRE_IOB) EQL XPO$_NORMAL DO 
; 559 1336 4 BEGIN 
: 560 it +4 4 
3 361 1338 4 SELECTONE .CMDBLK CNDXSH_FORMAT] OF 
; 266 1339 4 SET 
3 26 1340 4 
3 64 1341 4 CTMS11_A, TMS11_E): 
: $22 : 6 2 TMSPUT (. REGUIRE_108 CIOBSH_STRING], .REQUIRE_10B CIOBSA_STRING], OUTIOB, FALSE); 
: §67 1344 4 [DSR, TEX): | 
3 s08 ' ri 2 PuT_LINE (REQUIRE_I0B CIOBST_STRING)); 
: 3% 1349 4 TES; | 
: 71 1 rk 4 
: % 134 END; 
; 37 1350 
3; 574 1351 $XPO_CLOSE (I0B = REQUIRE_I0B); 
: 575 1 28 ND 
; 16 135 LSE 
: 7 1354 IF .CMDBLK CNDXSH_FORMAT) EQL DSR 
; 578 1355 THEN 
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MEMES 
Wolko—-— 


nn 


CONAVLSWN —"ODONOULSWN—O” 3 


™“ 
o 


Sulu Lk &S 
NO VOWMO 


2 
MT -=- Binary index formatter ibs -1984 00:58:17 AX-11 Bliss-32 v4.0-74 
MT == Build output index from internal inde ~g00n 138i 90:38:17 s$-32 V4.0 ¢ 


RUNOFF .SRCJNDOXFMT.BLI; 
BEGIN 


i User didn't specify a require file and output is for RUNOFF. 
Therefore, insert default commands. 


PUT_LINE ('. CENTER: INDEX"); 
PUT-LINE (*.BLANK3'); 
END; 
IF _.CMDBLK CNDX$H_NONALPHA] NEQ AFTER 
THEN | 
; Examine nonalpha bucket first if user specified 
/SORT=NONALPHA=BEF ORE or /SORT=NONALPHA=1GNORE 
EXAM_BUCKET (0); 
! 
Examine all alpha buckets 


iNCR I FROM 1 TO 26 DO 
EXAM_BUCKET (.1); 


Veh MDBLK CNDXS$H_NONALPHA] EQL AFTER 
' 


Examine nonalpha characters Last 
EXAM_BUCKET (0); 


' 
Write last page 


LASTPG (); 


END; 'End of NDXFMT 
-TITLE NDXFMT NDXFMT -- Binary index formatter 
-IDENT \V04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
20 $8 30 0 00000 P.AAA: .ASCII \ \ 
4—E 49 52 53 44 20 21 3 ite P.AAC: .ASCII \.! DSRINDEX version \ 
20 6& 6F 69 0 i 
20 21 2€E Bh P.AAF: .ASCII \.! \ 
45 56 41 53 2€E 8 P.AAH: .ASCII \.SAVE\ 
47 41 4C $8 § 4F 4E 2E P.AAIL: .ASCII \.NO FLAGS ALL\ 
ar rH $f rt fe sf $5 3 ' P.AAJ: .ASCII \.NO FLAGS BREAK\<9><9>\.NO FLAGS CA\ 
$2 i aE ? 4) gi 23 2? 38 eASCII \PITALIZE\<9>\.NO FLAGS ENDFOOTNOTE\ 
23 41 4C 4 : 4F rt 3 $ P.AAK: .ASCII \.NO FLAGS HYPHENATE\<9>\.NO FLAGS INDE\ 
4F 4E 2— 09 45 54 4 3 ; 
45 44 4E & 086 


~o 
SS 


H 2 
NDXFMT NOXFMT == Bina ind tt 16- 1984 58:17 AX-11 iss- 4.0-74 
mo ry index formatter Se a 00:38:17 Bliss-32 v4.0 Page 4 


V04 NDXFMT == Build output index from internal inde ~3ep-19 RUNOFF .SRCJNDXFMT.BLI; vO 
GF 4C 20 53 47 41 4C 46 20 of 4F i 93 09 i if <ASCII \X\<9><9>\.NO FLAGS LOWERCASE\ : ; 
4F 49 52 45 20 53 47 41 40 46 4F 4 AO P.AAL: .ASCII \.NO FLAGS PERIOD\<9>\.NO FLAGS SPACE\<9> ; 
ai $0 88 38 83 29 a to tk 25 Pe 2 03 i at : | ; 
53 42 55 53 20 53 47 41 4€ 46 20 of aE i ? cj sASCII <9>\.NO FLAGS SUBSTITUTE\ : | ; 
52 45 50 50 55 20 53 47 41 4C 46 29 of af Hi 0 Dg P.AAM: .ASCII \.NO FLAGS UPPERCASE\ : | 
SF 20 54 SO 45 43 43 41 20 53 47 41 «(4C a6 E QOE9 P.AAN: .ASCII \.FLAGS ACCEPT _\<9><9>\.FLAGS BOLD \ : : 
0 44 4c 4F 42 20 33 47 41 4C 46 2E 0 OOF8 : : 
45 4D 4D GF 43 2 47 41 4C 46 ee ; 09 A a8 sASCII \®\<9><9>\. FLAGS COMMENT !\ : ; 
49 52 54 53 52 45 56 GF 20 53 47 41 ac 46 2E 00119 P.AAO: .ASCII \.FLAGS OVERSTRIKE %\<9>\.FLAGS UNDERLI\ : ; 
44 4E 55 20 53 47 41 4C 46 2E 09 25 206 & 48 01 : : 
49 gC 3 45 001 : 
26 20 45 4& 00138 -ASCII \NE 8\ : 
4C 4C 41 20 53 47 41 4C 46 2E O013F P.AAP: [ASCII \.FLAGS ALL\ : 
4A 20 GF 4E 2€ 09 99 4C 4C 49 46 20 a dE E 00149 P.AAQ: ASCII \.NO FILL\<9><9>\.NO JUSTIFY\ : 
09 30 20 4E 49 47 52 41 4D 20 54 46 45 4C 2E O015E P.AAT: ASCII \.LEFT MARGIN 0\<9><9>\.RIGHT MARGIN\ : 
4E 49 47 52 41 4D 20 54 48 47 49 52 2E 09 0016p ; 
0 00178 -ASCII \.\ : 
20 2¢ 20 45 SA 49 53 20 45 47 41 50 2E 09 0017C P.AAU: <ASCII <9>\.PAGE SIZE , \ : 
09 09 58 45 44 4E 49 20 52 45 4g 4D 55 GE 2E€ 0018A P.AAX: . ASCII \.NUMBER INDEX\<9><9>\.NUMBER PAGE 1\ : 
31 20 45 47 41 50 20 3¢ 45 42 4D 55 4E 2— 00199 : 
45 4C 54 49 54 20 4 5 32 49 46 2— 09 09 001A7 LASCII <9><9>\. FIRST TITLE\ : 
32 2C 32 20 54 55 4F 59 41 4C 2E 001B5 P.AAY: <ASCII \.LAYOUT 2,2\ ; 
45 ac 54 49 $4 «(Ze 901¢0 P.AAZ: .ASCII \.TITLE\ : 
45 4C 54 49 54 42 55 53 2€ 9oic P.ABA: .ASCII \.SUBTITLE\ : 
47 4E 49 47 41 50 20 4 gE : O1CF P.ABB: ASCII \.NO PAGING\ : 
6E 6F 69 73 72 65 76 20 5B 45 44 4E 49 2 90109 P.ABD: .ASCII \% INDEX version \ 
30 z3 Mitty P.ABG: .ASCII \%\ : 
78 65 64 6EF 69 6C 6F 63 6F 4 5C OO1EB P-ABI: <ASCII <92>\twocolindex\ ; 
58 45 44 4€ 49 38 3 45 54 4E 45 43 ge O1F7 P.ABJ: ASCII \.CENTER; INDEX\ : 
33 4B 4E (41 42 2€ 00204 P.ABK: .ASCII \.BLANK3\ ; 
.PSECT SOWNS,NOEXE,2 
00000000" 00000 BLANKS: .ADDRESS P.AAA ; 
00004 LINE_POINTER: 
00008 RNO_LINE: 
.BLKB 1200 
00488 INT_LINE LENGTH: | 
004BC EXT_LINE LENGTH: | 00 
004c0 TMS LINE LENGTH: | 90 
004C4 LINE_TYPE: : 
004C8 PAGE_WIDTH: A 
004CC DOING_LAST: 
.BLKB 4 
| 
| 


NDXFMT 
v04-000 


NDXFMT == Binary index formatter 


NDXFMT == Build output index from internal inde 1f-sep-1984 98: 38: Uf 


00000000 


004D0 SAVE_ENTRY: 


. LON 0 
00404 adie 
rte «BYTE 4, 1 
40 ADDRESS P.AAC 
O4DC SSTRSSTRINGO: 
«WORD 3 
ots BYTE 14, 1 
Bee sADDRESS P.AAF 
4E4 SIOBSOUTPUT: 
-WORD 5 
SAEs . 14, 1 
O4E -ADDRESS P.AAH 
O4EC SIOBSOUTPUT: 
WORD 13 
94 “BYTE 14, 1 
Bete ADDRESS P.AAI 
04F4 SIOBSOUTPUT: 
-WORD 59 
srt . 14, 1 
O4F -ADDRESS P.AAJ 
004FC SIOBSOUTPUT: 
WORD 56 
OO4FE “BYTE 14, 1 
Beene ADDRESS P.AAK 
0504 © 10BSOUTPUT: 
«WORD 54 
00506 . 14, 1 
00508 -ADDRESS P.AAL 
0050C SIOBSOUTPUT: 
-WORD 19 
33 . 14, 1 
0051 -ADDRESS P.AAM 
00514 Preeseer MRD 4 
9316 -BYTE 14, 1 
051 ADDRESS P.AAN 
051C SIOBSOUTPUT: 
-WORD 38 
pate BYTE 14, 1 
p25 -ADDRESS P.AAO 
0524 SIOBSOUTPUT: 
«WORD 19 
5 g -BYTE 14, 1 
2 -ADDRESS P.AAP 
C SIOBSOUTPUT: 
5 eore , 
00386 ADDRESS AAG 
534 SSTRSSTRING 
-WORD 30 
my Oa 14, 1 
Nees ESS P.AAT 
C SSTRESTRING 16 
0053€ ‘BYie 14, 1 


RUNOFF. SRCINDXFMT.BLI; 


re it 


S8ss 


NDXFMT 
v04-000 


AX-11 Bliss-32 V4.0-74 


2 
NDXFMT == Binary index formatter if $ep-1986 90:38:17 RUNOFF .SRCINDXEMT.BLI: 


NDXFMT == Build output index from internal inde ~Sep- 
00000000' 40 »ADDRESS P.AAU 
$098 88 44 SIOBSOUTPUT: 
«WORD 43 
-—BYTE 14, 1 
ADDRESS P.AAX 
SIOBSOUTPUT: 1 
“BYTE 


14, 1 
-ADDRESS P.AAY 
SIOBSOUTPUT: 
«WORD 


So 

So 

o— 
ooo 


-BYTE 4, 1 

sADDRESS P.AAZ 

SIOBSOUTPUT: 
- WORD 


oS 
oO 
o— 
ooo 
om OOc fom mac 


our Ww vs 


-ADDRESS 
SIOBSOUTPUT: 
«WORD ! 


>om oom aom 


ooo 
$ 


«ADDRES 
SSTRSSTRINGO: 
- WORD 


oO 


oom 


oo 
oo 
ooo 
mom 


—— 


wn 
-w 
VFWw VEN US 
. 


n 
nn 


C 

E . 

0 - ADDR 

4 SSTRSSTRINGO: 
ORD 

6 

8 

C 


oS 
So 
oo 
o— 
oo 
oo 


* ADDRE 
SIOBSOUTPUT: | 


oe 


*ADDRE 
SI1OBSOUTPUT: 
«WORD 


8 


som gom oom 


“ADDR 
8C $IOBSOUTPUT: 
. WORD 


oo ooo SoCo Coo COCO COCO COCO COO COCO COO 
—~ 


oo ooo OOD COO ocOCOOoO CcOoOOoO COO OOO OOO 


oo Oooo Sooo ooo 


- ADDRESS 


om 


. 
m 
hhh dd 4d 4-4-4 4-4-4 1-1 
SssssSsssssSsSsSs ss vs 
DDDDDDDDDUD 
MMMMmnmMmMmMmMmmmmnenrnecry 
>< DK OE OK OK OK OK OK OE OK OK OK OK OK OK 
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te) NDXFMT == Binary index 


ormatter 


SPMmMOommMmmMnmmmn 
Or mMaAHHH—H 


our 
So 


NDXFMT == Build output fone from internal inde 


¥ 
1 58 


OFFC 00000 


of 
9E 


: 
i 


000 


01 
1 
1 


0 
4 


Ooo 
vn 


5 
? 


A 


19H 8 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJNDXFMT.BLI; 


SStenarcese 


a» 
Cc 


T, R T, TCOUNT 
LLINES, RTYPE 
TTYPE, TLINES 


xPOSPUT 
XSTSASCII, XPOSOPEN 
XPOSGET, XPOSCLOSE 


SCODES,NOWRT,2 

NDXFMT, Save R2,R3.R4,R5,R6,R7.R8,R9,R10,- 
CMDBLK+4, R11 

XPOSPUT, 

XPOSFAILURE, R9 

PAGE WIDTH, R8& 

198 768, R? 

=244(SP5, SP 
LCOUNT 
RCOUNT 

DOING LAST 
CMDBLR+6, RO 
RO, #3 


crpeuk ss CMDBLK+12, RO 
@CMDBLK+28(RO], PAGE_WIDTH 


BeBe Se Se Se Se Se Se Se Fe Se Se Se Se Ge Se Ge Se Se Se Se Ge Se we Se Se Se Se Fe Se Se Se Se Se Se Se Se SH Se SH Se Se Oe See Oe Oe SH Se Oe SHS Se Se Se Se ee 


NDXFMT == Binary index 
NDXFMT == Build output 


aaah 
OW>oo 


ormatter 
ndex from internal de 
14 
01 0 
50 8 AB 
68 e apap 
04 
68 08 AB 
28 44 , 
3 0 fe 
: i 
51 
36 
61 58 : 
53 i 
51 
06 
61 5D +4 
53 55 
9¢ 
1 
51 
05 
61 2E 
EF 
51 10 AB 
50 14 AB 
9A 
51 ; 
01 6 
0 
EF FC A 
0 
FF EA A 
0 
01 


01 
AD 000000006 
AD 


AD 
AD sossconss 


A7 


Nm CSNONMOS TS OWOD —Oo— F DW NO 


PF NMNOW'O FP PMOOMPOuo 
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= wre — 
bad PM iP 
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oa 
Aad 


4 phy tf 


NNT NIE OU OA FS SMA LOPS NVNS 
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oO oO 


AX=-11 Bliss-32 V4.0-74 
RUNOFF .SRCJNDXFMT.BLI; 


17 

4 

3 

R 

2 

CMDB +12 
gcnDBLKs éckoo, PAGE_WIDTH 
CM 

CM 

(D 

4(DS 

rT; 

5$ 

R} 

PT 


DBLK+I2, P PAGE p¥IDTH 
DBLK+7 
sc OSS tin 
DSC_PTRS, CMD PTR 
0, th REN: (CMD_PTR) 
R 
6$ 
#91, (PTR) 
H62, CMD_LEN, (CMD_PTR) 
R1 
PTR 
8$ 
#93, (PTR) 
#59, CMD_LEN, (CMD_PTR> 
R1 
PTR 
10$ 
#46, (PTR) 
as 


CMDBLK+20, R1 
CMDBLK+24, RO 


11$ 

RO, R1, ALLOWD 
CMDBLK+4, #1 
=4(R1), ALLOWD 


-22(R1), ALLOWD 

CMDBLK+4, R 
RO, #1 
14$ 

NOXVR 

#14, $§ 

, SST 
NDXVRP 

SSTRSST 

$ TRSST 

, XsT 

; 108 

; 108 

) 


=( 
10B$ 
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* 
7 
e 
° 
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7 
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. 
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NOXFM NOXFMT == Bina y nde ° e -ep- 984 7 AxX-11 at Ha ey i +P Page $3 
"tra Ll inde " geen} 99:3 it RU 
rma 
EMT Me Bn — on interna 
yO4-000 NOXF n 9 4 4 MT.BL 


+ 1264 
XPOSPUT ; ; 
CALLS 4 PTR : : 
10¢ HL DS G0 : 
ee 8) ee : : 
4 A FB 00114 MOVL RQ, te taee : 
F g 118 ove a7, ; 
eee ae : 135 PUSHER Sp) : 1265 ; 
mhtys 3 De 00134 PUSHAB PS. xPOSPUT +68 ; ; 
AP 9F 001 g RC...8 © ${OBSOUTPUT, 1088 : 
ef a ‘i zp PUShL asp) 1266 : 
Nh 3¢ boise CALLS” EE XPOSPUT og 
BC 03 FB 4 B en 3° 10B$+44 ; . 
ef 24 ag 35 iH Ee RSP) ; 1267 : 
ee 39 D4 001 Chote” BS xPOSPUT +68 ; : 
H 9F OO14A CALLS # 6BSOUTPUT, 10B$ ; ‘ 
ee ee i) : : 
e? * + $0 B18 PUSHL nesP) toms : 
EB A? 59 015A SHAB 10B$ 1 : ; 
A5 Be 015¢ CALs. SBSOUTPUT, 108S+68 
BC 03 FB Olan ao 3° 10B$+44 3 : 
6A 34 «AB 1 PUSHL 9 : : 3 
of 7 dD 16A CLRL -(SP : 1269 3 
ache : D4 0016C PUSHAB * POSPUT +68 : : 
AY OF O16 ROvAS — S1OBSOUTPUIT, 10BS 
BC 0S FB O17 OVAB 1 10B$+44 : ; 
6? xe OF 96 oolrs PUSHL RO. i 
of 9 DD 17¢ CLRL rt 4 3; 1270 : 
EB D4 0017 PUSHAB | XPOSPUT +68 ; : 
hb 9F 001 CALLS = # OBSOUTPUT, 108$ ; : 
BC 03 FB ol ee 3° 10B$+44 ; : 
f «as 1 i ivn| [3 
cB A 5 1 SHAB | T ; 3 
AP 9F 001 CALLS. 6eSQUTPUT, 108S+68 ; ; 
BC B 0019 MOVAB $ $+44 : : 
A 0 F 19 vB #7, 108 PY e 
6? “© OF 98 dose PUSHL p) S sone 3 
EB A? 59 oD 1%9 te ue F ; 12 
AP 9F OIA CALLS” besouTPUT 108$+68 : 
oe 8 lee 147 ee #44 9 : : 

ep a4 ts i fs PUSHL Resp) 

ee i} $b» 90 pishas Teds 

5 F 00186 
BC OA 


NDXFMT == Binary index 
NDXFMT == Build output 


format er 
ndex 


~“ 
row 


5 


rom internal inde 


5¢ 


BC 
64 


BC 


0903 


0903 


74 
6C 


BC 
7c 


WMoro 


Of OMWOW™ COM OW ™ COM WTO NOW ~IIM O~JOOW 


tt td at BP QOOOO HH HH MMMMMOCOOVTVMNOOOOooww 
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moO 


90:58:17 YAXo11 Bliss=32 y4.0-74 


RUNOFF .SRCIJNDXFMT.BLI; 


#3, XPOSPUT 
$10Bs0uTPUT, 10B$+68 
0. 10B$+44 

=(SP) 

I 


B 
#3, XPOSPUT 
$1OBS0uTPUT, 108$+68 
4% 10B$+44 


<1 paleo 

Paes 
#3, XSTSASCII 
SSTRSSTRING2 


SSTRSSTRINGO 
it STSJOIN 


* 10B$+6 
a. 10B$+44 
7 (sp) 
#3, XPOSPUT 
$1OBS0UTPUT. 10B$+68 
a. 10B$+44 
Tone. 
i XPOSPUT 
#4. CMDBLK+1, 15$ 
$1OBS0uTPUT, 10B$+68 
1e 10B$+44 
-(SP) 
10B$ 
ae XPOSPUT 
$1OBs0uTPUT, 10B$+68 
4e 10B$+44 
-(SP) 
10B$ 
#3, XPOSPUT 
$1O8S0uTPUT. 108$+68 
a. 10B$+44 


=(SP) 
108$ 
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NOXFMT NDXFMT == Binary index f t 
v04-000 NDXFMT <= Build output inden re 
ga 
4 02 
67 009C 
02 
03 
00000000G_ EF 
04 
F8 AD 000000006 
FA AD 
FB AD 
FC AD steht : 
O0A4 
00000000G_ EF 
67 
EB A? 
BC 
6A 
OOAC 
00000000G_ EF 
67 
EB A7 
BC 
6A 
67 0084 
EB A7 
BC 
6A 
56 34 
03 FC AB 
OOFS 8F 00 6E 
6E 03010030 
1E AE 020E 
Se AE 
C AE 
000000006 
08 
eee * 2 EF 
C AE 


rom internal inde 
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OF NNO OF NNO N M10 © NMOWNIOM PMOOMOuneoouwi0owm 
WNIT ONOWINT ONONMOOWNM O NOMS 7M NDOT ODOOMOMVeavo 
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Oman HHMM 


SNOMSS 


CO0ITT9 MDWwMT oO 007099 09 7090 TNOTT 09 7000 008 -@ 1D -- DW - O--O 
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Pnwnnnronronn 


> NIM 


on 


' 


3 


-Sep- 
=fep- 


> 
ww 
bed 
- 


19$: 


~m 
Ww 
bad 


HL 9858.2 


#3, XPOSPUT 
CMOBLK+6, #4 


$10BSOUTPUT, 10B$+68 
RO, #2 
Ros 

R a3 

#0, TMSINI 
208 

RO, #4 


VRL, SSTRSSTRING1 
, SSTRSSTRING1+ 
SSTRSSTRING1+3 

VRP, S$STRSSTRING1+4 
$STRING! 


I 

& XPOSPUT 
SSTRSSTRINGO 

#2, XSTSJOIN 

RO, 10B$+68 

#7, 10B$+44 

RO 

(SP) 

10B$ 

#3, XPOSPUT 
SIOBSOUTPUT, I10B$+68 
ae 10B$+44 

(SP) 

#3, XPOSPUT 
CMOBLK+56, DSC_PTR 

#2, CMDBLK, 228 
(DSC_PTR) 

#0, (SP), #0, #244, 10BS 
450397245 10B$ 

#526, IOB$RESULTANT+2 
DSC_PTR }oas+4 

#1, 108$+44 
OPEN_ERROR 

(SPJ 


1yes 
#3, XPOSOPEN 
#6, 10B$+44 


AX=11 B.iss-32 V4.0-74 
RUNOFF .SRCJNDXFMT.BLI; 
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: 1301 


1305 
1307 
: 1312 


; 1313 
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NDXFMT == Binary index formatter 
NOXFMT == Build output index from internal inde 
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; 619 1395 1 !4 : 
; 620 1 38 1 i > 
: ° 1 : af : FUNCTIONAL DESCRIPTION: : 
; ° 1238 ! } This routine is called to examine the contents of a bucket. ; 
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3 ° $ 1008 : } Yeu DE_HEADING qualifier. : 
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} FUNCTIONAL DESCRIPTION: 


Collect and print the entire index Line, including 
name and all Line number references. 


No Line is generated if doing a master index and the 
subindex level is greater than the deepest level 
allowed in the master index. 


i FORMAL PARAMETERS: 


None 
i IMPLICIT INPUTS: 
LSTPTR - address of List item for index entry 
INDLVL - subindex Level 
LSTSTK - subindex List stack 
LINE_ TYPE = current Line type 
cmpBCK - command Line information block 
CHRSIZ - TMS character size vector 


! IMPLICIT OUTPUTS: 
current Line type 
external Line Length 


internal Line length 
Length of Line in TMS relative units 


m 
oe 
Lo 
— 
=z 
m 
Mm 
— 
mm 
z 
a 
“4 
= 
teeune 


i ROUTINE VALUE: 


' 
' 
' 
' 
' 
' 
! 
' 
' 
' 
' 
‘ 
! 
' 
' 
1 
i] 
i] 
' 
i 
i 
! 
' 
' 
' 
' 
i] 
' 
' 
COMPLETION CODES: 
None 

SIDE EFFECTS: 
None 

i] 


BEGIN 


CAL 
INDENT 
STR VEC : REF VECTOR, 
CHAR_COUNT, 
TEXT_PTR; 


IF .INDLVL GTR .CMDBLK CNDXS$H_LEVEL] THEN RETURN; 


' 
i Get pointer to text and length of text 


3 
ScH9He 985832 WADI PLesadt a8 


pointer to next character position in output Line 


; , 
FMT == Binary index formatter 1§-§ 1984 00:58:17 AX-11 Bliss- 4.0-74 ND 
MAT_ENTRY =~ collect i print index entry 73007138 ey RUNOFF eSRe NDMFMT LOL 144 oe 3) vO 


C2 G9 CO Cd CD CD CO. CD CD: 
SN 


WN" OOCONOUS wn 


senreeeers 
Sener 
WR @§ OOO NAUNE WIN — OODNANE WN OO ONAU EWN (OOO NAUES WN OOOO 


co 
oO 


PAAAAAA AA AA AAO 
SSN NNN 


SSSEaRses 
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w 


PUPP SVT B® BS BE EB AIAN IWIN & BAIR POPUNIPONINONONINO NOP PoNonononopnunnyd 


De Se Se Se Be Se Se Be Be Se Se Se Ge Se Se Se Se Se Se Ge Sete Fe Se Be ae Fe Se Se Se Ge Ge Se Ge Ge Ge Ge Se Be ee Se Se Se Se Se Se Fe Se Se Fees Fe Sees Se Seas 


91 
91 
91 
91 
91 
91 
91 
91 


NOULWN—O 
PAOOACOAAO 
Mtoe 
—e—00@ 


' 
CHAR EOUNT'S STR ver tole : h is Ist fullword of i 

= + 
TEXT_PTR = CHSPTR™ (STR_VEC C1]); Acre ena) capone et chatacters. 


IF .LINE_TYPE NEQ CONT_HEAD THEN LINE_TYPE = (IF .INDLVL EQL 0 THEN ENTRY_B ELSE SUB_8); 
1 
Indent the new Line 


INDENT = 2 * .INDLVL; 
INDENT_LINE (. INDENT); 


1 
! Now format the entry 


FILL_LINE (.CHAR_COUNT, .TEXT_PTR, .INDENT, .CMDBLK CNDX$G_COLUMN_WIDJ, FALSE, FALSE, FALSE); 
IF .LINE_TYPE EQL CONT_HEAD 
THEN 
Doing a continuation heading 
if (.LSTSTK C.INDLVL + EQL 0) 
OR (.INDLVL EQL .CMDBLK CNDX$H_LEVELJ) 
THEN 
Append * (Cont.)' to Line 
FILL_LINE (7, CHSPTR (UPLIT ('(Cont.)")), . INDENT, .CMDBLK CNDX$G_COLUMN_WIDJ, FALSE, FALSE, TRU 


ELSE 
BEGIN 


Doing a normal entry 
if .LSTPTR CXESA_REF] NEQ 0 
THE 


BEGIN 
} Have page references. 
If .CMDBLK (NDX$V_PAGES) ' Generating page references 
i eee NDXSV_MASTER] ! or master index 
BEGIN 


i Insert a null following the entry so that we can detect the 
! start of the page references for building teiltale headings 
or continuation headings on the last page. 


CHSWCHAR_A (0, LINE POINTER); 
EXT_LINE-LENGTH = .EXT_LINE_LENGTH ¢ 1; : 
INT“LINE-LENGTH = .INT“LINE-LENGTH + 1; 


TMS_LINE_LENGTH = .TMS_LINE_LENGTH 


DOOOOOOOOOOOOOOOONOOO 
NOUS WN —“OOONOULS WN OOO 3 


WNIANAIWNWInononponenonefnonupn0nn 


oo 


wOOOOOOVNOOoVNDO oO 
DAAUIVIVIVAUIUIUT ES 
DONAUS WN — 


SOO 
wr 


seecest 


fwn—oo 


Be Se Ge Se Se Fe Se Se Se Fe Fe Se Ge Se Fe Se Ge Ge Ge Ge Ge Ge Fs Ge Fe Fe Ges Ge Ge Se Se Se Se Se Ge Ge Se Se Se Fe Se Se Se Se Se Se Se Se Se Se Sse Sees Seas ee 


oowoo 
ANNw 


———— 
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+ (IF .CMDBLK CNDXSH_LAYOUT] EQL SEPARATE THEN .CHRSIZ C%C' '] ELSE .CHRSIZ (%C’,')); 
INS -PAGE NO (.LSTPTR CXESA_REFJ); ! Insert page numbers 
END 
ELSE 
BEGIN 
| No page references 
-CMDBLK CNIX$V pAsteee 
« INDLVL Fab PROBL NDX$H_LEVEL]) 
-LSTPTR LAESA_SUBX] NEQ 0) 
EGIN 


i Doing master indexing, at de2pest level y epee F 
! and not at the bottom of a .Y = generate book references 


LOCA 
A INDENT, 


x 
NEW_LINE 
XMPTR : REF $XM_BLOCK; 


NEW_LINE = FALSE; 
XMPTR = .LSTPTR LXESA_BOOK_LISTI; 


as CNDXSH_LAYOUT] EQL SEPARATE 
BEGIN 
Set indent and maximum external Length for separate format 


M_INDENT = .CMDBLK CNDX$G_COLUMN_WID] + .CMDBLK CNDX$G_GUTTER_WIDJ; 
M~EXT = .PAGE_WIDTH; 


ELSE 
BEGIN 


; Set indent and maximum external length for other formats. 


M_INDENT = . INDENT; 
WEXT = .CMDBLK CNOX$G_COLUMN_WIDJ; 


<2 


IF 

AND 
AND 
THE 


2 
wo An 


Insert a null following the entry so that we can detect the 
start of the page references for building telltale headings 
or continuation headings on the last page. 


HSWCHAR_A (0, LINE POINTER); 
xT LINE“LENGTH = .EXT LINE LENGTH + 1; 


1 
TILINETLENGTH = :INTTLINE“LENGTH + 1; 


TMS_LINE LENGTH = , TMS LINE LENGTH 
+ (IF .CMDBLK CNwOXSH_LATOUT EQL SEPARATE THEN .CHRSIZ C2C* *) ELSE .CHRSIZ C2C',")); 


' 
¢ 
E 
I 


PUPP STITUTION OP OP OP OP OS UO OP OO OO. UU UU UT UU UU BB BA PUTT 


«PSECT 
00 29 2 74 6E 6F 43 28 OO3BC P.ADP: .ASCII 


.PSECT 
OFFC 00000 FORMAT ENTRY: 


NOOO 9 9 — 9 OTT TO—MmI OOOOoOono 
WOON MOOCOLOOOMMmMmMmmmm 


Om QoOouwoSeProPQ OOSmMmmmmm 
"OOM MHAOOCOO —CO mw 


NDXFMT NDXFMT == Binary index formatter 1 -5e0-1984 00:38:17 AX-11 B 


Bliss-32 V4.0- r74e 
RUNOFF .SRCJNDXFMT.BLI; 


v04-000 FORMAT_LENTRY == collect & print index entry -Sep-1 

; 975 17 0 5 

; 976 17 WHILE .XMPTR NEQ 0 DO 

; 97 17 ; 6 BEGIN 

:; 978 17 BOOK K_REF (.XMPTR CXMSA_B ox}. MI 

; 979 V7 4 6 RORBBLK CNDX$H_LAYOOT ( SEPAR # 
: 981 1756 6 IF .XMPTR CXMSA_LINK] NEQ 0 

: 98¢ 17 5 6 THEN 1“ 

: 98 17538 XMPTR = .XMPTR CXMSA_LINK] 

3: 984 1759 ELSE 

ig pe 

; 389 1768 4 END; 

; 988 176 END; 

; 989 1764 END; 

; 990 1765 

3 991 1766 IF .LINE_TYPE NEQ CONT_HEAD THEN LINE_TYPE = (IF .INDLVL EQL 0 THEN ENTRY_E ELSE SUB_E); 
3 993 1768 INS_LINE (.INT_LINE_LENGTH, CHS$PTR (RNO_LINE), .EXT_LINE_LENGTH); 
: 995 1770 1 END; !End of FORMAT_ENTRY 


SPLITS,NOWRT ,NOEXE,2 
\(Cont.)\<0> 


SCODES ,NOWRT,2 


2,.R3,R4,R5,R6,R7,R8,R9,R10,R11 


an 


ozcoo-r ze 
ae Ma 
eel iate 


R 
Z 
L 
re R 
Kt 
a 
Hib. 


CMDBLK+10, R1 


peed ttt pemt 44 


VEC 
CHAR_COUNT 
pre 


BSDBRwavwer Ln SC- —B KOK MOM 


» RO 
’ LINE TYPE 
» RI, INDENT 


; 1580 


1646 
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. 
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* 
e 
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. 
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. 
o 
° 
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. 
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. 
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° 
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° 
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” 
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© 
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oe 
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. 
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° 
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. 
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. 
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. 


4 
NDXFMT NDXFMT == Binary index formatter ib-Se -1984 00:58:17 AX-11 Bliss-32 V4.0-74 
v04-000 FORMAT_ENTRY =~ collect print index entry =30871 382 99535544 RUNOFF SRE SNDXEMT OL 144 ‘he 3 


3 pd 0005 PUSHL INDENT ; 

00000000v EF af FB ef CALLS #1 INDENT LINE : 
4 D4 69 CLRL -(SP) : 

DD B PUSHL  CMDBLK+1 : 

C BB 0 D PUSHR #*M<R2,R3> : 

4 DD F PUSHL  CHAR_COUNT : 

6A 7 FB 1 CALLS #7, FILL_LINE 3 

B $6 D 7% CMPL = LINE_TYPE, #11 : 

9 1 77 BNEQ 6$ : 

50 68 D 79 MOVL — INDLVL, RO : 

00000000GEF 4 p a8 sit LSTSTK#4(ROJ : 

68 FE A? 10 00 EC 0 : CMPV #0 #16, CMDBLK+10, INDLVL : 
66 0088 BNEQ 126 : 

Qi pp 008 5$ PUSHL #1 : 

5 C 0008F CLRQ.  =(SP) : 

: DD 00091 PUSHL CMDBLK+12 : 

3 OD 00093 PUSHL INDENT ; 

00009000' FF OF 0095 PUSHAB P.ADP : 

7 DD 00098 PUSHL #7 : 

6A 07 FB 0009D CALLS #7, FILL_LINE : 

43 11 OOOA0 BRB 10$ : 

51 69 00 O00A2 6$ MOVL LSTPTR, R1 : 

oc Al D3 000A STL  12¢R1) : 

3 13 O00A8 BEQL 118 ; 

05 Fe OA? 2 EO OOOAA BBS #3, CMDBLK, : 
34 FSA? 2 FI OOAF BBC #2. CMDBLK+1, 11% : 
FB40 06 94 000B4 7$ CLRB @LINE_POINTER ; 

FB40 C6 D6 00088 INCL LINE POINTER : 

FB AG D6 OOOBC NCL _ EXT_CINE_LENGTH ; 

F4 AG D6 OOOBE INCL INT"LINE LENGTH ; 

50 68 D0 b00ce MOVL CHRSIZ, RO : 

03 FA A? Bi 000C CMPW 3s CMDBLK46, #3 ; 

07 12 0009 BNEQ 8$ : 

50 0080 CO bO 000CB MOVL  128(RO), RO : 

605 11 00000 BRB 9$ : 

50 00B0 £6 00 900¢ 8s MOVL  176(RO), RO : 

FC OA CO 00007 9$ ADDL2 RO, TMS.LINE_LENGTH : 

OC Al DD 00008 PUSHL  12(R1) ; 

00000000v_ EF 01 FB 000D CALLS #1, INS_PAGE_NO : 
0081 31 OO0ES 10$:  BRW 20$ : 

7c FSA? : E1 O00E8 11S: C #2, CMDBLK+1, 208 ; 
68 FE A? 10 : OE CMPV 3s #0. #16, CMDBLK+10, INDLVL : 
4 F3 12% NEQ § F 

08 Al D5 O00F STL (R1) : 

6f 13 O00F BEGL 0$ ; 

4 D4 OOOFA CLRL NEW LINE : 

52 1¢ = Al «DO O00FC MOVL $28(R1), XMPTR : 

51 04 001 CLRL R1 5 

03 FA A? 81 1 CMP CRDBLK+6, #3 ; 

gp 2 001 BNEQ 3$ ; 

1 06 1 INCL. RI ; 

55 67 04 A7 C1 OO10A ADDL3 CMDBLK+16, CMDBLK+12, M_INDENT : 
3 4 Ab 06 1 MOVL PAGE_WIDTH, M_EXT : 

06 1 0011 BRB 14 : 

55 DO 00115 138:  MOVL —s INDENT, M_INDENT : 


<z 


ln aw | 
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v04-000 FORMAT_ENTRY ==" collect t print index entry ~300 138% 90387 RUNOFF .SRC NOKFMT BL, 
53 67 DO 00118 MOVL § CMDBLK+12, M_EXT 
FB40 06 94 0011B 148 CLRB @LINE_POINTER 
FB40 C6 D6 001 i INCL LINE POINTER 
F8 Ab D6 001 INCL EXT_CINE_LENGTH 
FE =A6 D6 001 6 INCL INTLINE LENGTH 
9 68 D0 001 MOVL CHRSIZ R 
1 €9 0010C BLBC =a ,_«:15$ 
0 0080 £9 DO O01eF MOVL 126(R0) , RO 
11 001 BRB 1g 
50 0080 DO 00136 15$:  MOVL. 176(RO), RO 
FC A CO 00138 168: ADDL2 RO, TMS_LINE_LENGTH 
DS 0013F 17$: TSTL XMPTR 
1 14 BEQL 208 
D4 O14 CLRL = = (SP) 
18 BB 00145 PUSHR #*M<R3,R4> 
55 DD 00147 PUSHL M_INDEN 
04 Ae DD b0149 PUSHL 4 XMPTR) 
00000000v_ EF 05 FB 0014 CALLS #5, BOOK_REF 
03 FA A? Bi 0015 CMPW = CMDBLK+6> #3 
03 12 0013 BNEQ 8$ 
54 01 10 00159 MOVL #1, NEW_LINE 
62 dS 0015¢ 18$: TSTL (XMPTR) 
05 13 001 BEQL 19$ 
52 62 bd 0016 MOVL (XMPTR), XMPTR 
DA 11 0016 BRB 17$ 
52 D4 00165 198: CLRL = XMPTR 
06 11 00167 BRB 17$ 
0B 66 D1 00169 208: CMPL LINE_TYPE, #11 
OF 13 0016C BEQL 
68 05 00166 TSTL INDLVL 
05 if 001 BNEQ 1$ 
50 07 DO 0017 MOVL #7, RO 
93 11 0017 BRB 22$ 
50 O&A DO 00177 21$:  MOVL #10, RO 
66 50 00 00174 3: MOVL RO, LINE_TYPE 
F8 Ad DD 0017D 23$:  PUSHL EXT_LINE-LENGTH 
FB44 C6 9F 00180 PUSHAB RNO-LINE 
F4 Ag DD 001 PUSHL INT~LINE_LENGTH 
00000000v_ EF 03 FB 00187 CALLS #3,~INS_CINE 
04 0018E RET 


; Routine Size: 399 bytes, Routine Base: S$CODES + 04F7 


Pe Pe Ge Se Ge Se Ge Se Se Be Be Se Se Ge Se Se Se Se Be Se Be Be Be Be Se Be Se Se Se Be Ge Se Be Se Se Se Ge Ge Be Se 


1768 


1770 


LA sss 
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NDXFMT NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss-32 V4.0-74 Page 59 
v04-000 INS_PAGE_NO == Senerate page # List ae 99:35:86 RUNOFF. RCINDXFMT.BLI; . (6) 
; 997 177) 1 XSBTTL_"INS_PAGE_NO == generate page # List’ 
; 998 17 é 1 ROUTINE INS-PAGE-NO (LIST_HEAD) : NOVALUE = 
; .999 17735 «1 
; 1000 1774 1 S44 
: 1001 1775 1 =! FUNCTIONAL DESCRIPTION: 
: 1006 1778 1! 
; 100 “ieee Generate the page number List for the index item 
; 1004 1778 1! 
; 1005 i779 1. ! FORMAL PARAMETERS: 
: 1006 1739 7% 
; 1007 1781 1! LIST_HEAD = address of page number List 
: 1008 1786 1! 
; 1009 17 1 ! IMPLICIT INPUTS: 
; 1010 1784 1! 
; 1011 1785 1! CMDBLK = command Line information block 
: ISi¢ 1786 1! INDLVL - subindex leve 
3; 101 1787 1! LSTSTK = subindex List stack 
: 1014 1788 #1! PAGE _WIDTH - size of output page 
: 1015 1769 1! CHRSTZ - TMS character size vector 
: 1016 1790 1! 
: 1017 1791 1°! IMPLICIT OUTPUTS: 
: 1018 1736 1! 
3 1019 1793 1! LINE_POINTER = pointer to next position in output Line 
: 1020 1794 1! EXT_CINE_LENGTH = external Line Lengt 
; 1021 1795 1! INT_LINE_LENGTH = internal Line Length 
3 Oss 1796 1! TMS_LINE_LENGTH = TMS Line Length in relative units 
; 9s 1797 1! 
3: 1024 1798 1 ! ROUTINE VALUE: 
: 1025 1799 1°! COMPLETION CODES: 
: 1026 1800 1! 
3; 1027 1801 1! None 
: 1028 138 1! 
: 196? 1805 1 ! SIDE EFFECTS: 
; 1030 1804 1! 
3; 1031 1805 1! None 
3 1038 4 1! 
: 10 1807 1 !-- 
: 10 1808 1 
; 1035 1809 BEGIN 
3: 1036 1810 
: 1037 1811 LOCAL 
: 1038 alg NT 
> 1039 181 MAX_EXT_LENGTH, 
3; 1040 isi% REF GENERATED, 
S 1oe2 1816 NEU. CINE 
; 198 1819 CUR_ BOOK 
> 1044 1 18 XXPTR : REF $XX_BLOCK; 
3; 1045 181 
g 1206 1820 XXPTR = .LIST_HEAD; 
3 104 1821 
3: 1048 1 ¢ NEW_LINE = FALSE; 
: 196) : ? CUR_BOOK = 0; 
: 1983 1825 IF .CMDBLK CNDX$H_LAYOUT) EQL SEPARATE 
; 1036 ] $ H 
3; 105 1 BEGIN 


sz 
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NDXFMT NOXFMT == Binary index formatter 1§-Sep-1984 90:38:17 AX-11 at HS et oD ad ot Page 60 NC 
-000 INS_PAGE_NO == generate page # List -Sep-1984 22:29:54 RUNOFF .SRCINDXFMT.BLI; (6) ve 
; 1054 1 § : H 
; + 5 } 4 } Doing an index with separate references : 
: 19 : 1831 INDENT = .CMDBLK CNDX$G COLUMN _WID] + .CMDBLK CNDX$G_GUTTER_WID); ; 
; 1058 1 ¢ MAX_EXT_LENGTH = .PAGE_QIDTH; : 
1086 1884 e.see 
: 1061 1835 BEGI 3 
H 1306 1 $ INDENT = 2 * .INDLVL; : 
: 106 18 MAX_EXT_LENGTH = .CMDBLK CNDX$G_COLUMN_WID]; : 
>: 1064 1 : END; : 
. ae : 
i pes : 
: 1969 1848 Process all page references 3 
; 1071 1845 REF_GENERATED = FALSE; : 
; 1978 1847 IF .CUR_BOOK NEQ .XXPTR CXX$A_BOOK] : 
; 1074 1848 THE ; 
We RR pn : 
; ee 132) ; Have encountered a new book name : 
: 1079 1888 4 i NOTE: If you want to insert a comma after the book reference, 
; iar 1330 ? use .CMDBLK CNDX$V_PAGES] as the last argument to BOOK_REF 
; 1082 1856 4 CUR_BOOK = .XXPTR CXXSA_BCOK]; 
; ez tt : BOO? _REF (.CUR_BOOK, . INDENT, .MAX_EXT_LENGTH, .NEW_LINE, FALSE); 
; 1085 1859 4 1r .CMDBLK CNDXS$H_LAYOUT] EQL SEPARATE THEN NEW_LINE = TRUE; 
: 1086 1860 4 REF _GENERATED = TRUE; 
er a 
> 1089 1868 IF .CMDBLK CNDX$V_PAGES) 
: 1090 1864 THEN 
We Me ee 
; 1098 1867 ? : Doing page references. Generate one. 
> 1095 1869 4 SELECTONE TRUE OF 
me yf “- 
: 1098 1872 4 C.XXPTR CXXSV_ENDJJ: 
: 1100 1874 4 i END of page range. 
: 110) 46 ? These are picked up by BEGIN's so no processing is required 
WOU : 
; 1105 1 8 4 C.XXPTR CXX$V_BEGIN): 
3 1196 : 30 BEGIN 
: 1108 1 i BEGIN page range. 
3; 1109 1 : 
3; 1110 1 LOCAL 
| 


F 4 


NOXFMT NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss-32 V4.0-74 P 1 
v04-000 NS_PAGE_NO == Jenerate page # List $0071 38¢ 99538544 ERUNOFF SRE NDXFMT.BLI; se (8) 
5 SKIPPED_ENTRIES, 
g XXEND :"REF $XX‘BLOCK; 
88 SKIPPED_ENTRIES = 0; 
89 PAGE REF (.XXPTR, .INDENT, .MAX_EXT_LENGTH); ! Write initial page 
90 REF_GENERATED = fRUE; 
; . 
38 ; Find end of range and output 


XXEND = .XXPTR; 
WHILE TRUE DO 
BEGIN 


SALES 


NNN NAO AAA AAO NINN NNSA OO AOUMUIMIMIMIUIUIVIVIVIVA «=D 


IF .XXEND CXX$A_LINK] EQL 0 
THEN 


0000000000900 00 00 00 0D CD CD: 
ooo 
NOUS 


WWA AIA PIPINPIPININPNNININD 2 OO es ws 


1 
Point to next entry 


XXEND = .XXEND CXXSA_LINK); 


IF .XXEND CXX$V_END) 
tr (.XXEND CXXSA_BOOK] EQL .XXPTR CXX$A_BOOK]) 


N 
BEGIN 


00 
01 BEGIN 
o¢ ! 
0 ! No corresponding END. 
a8e Issue error message and exit loop. 
L 5] ZIF ZBLISS (BLISS32) 
44 THEN ! Signal errors in BLISS32 
+4 SIGNAL (CINDEX$_NOEND) ; 
’ V ZELSE ! Use SXPO_PUT_MSG otherwise 
U i $XPO_PUT_MSG (SEVERITY = WARNING, 
Y 13 STRING = ‘.XPLUS (BEGIN) has no corresponding .XPLUS (END)'); 
1 xFI 
13 
\3 ENTMSG (); 
20 EXITLOOP; 
21 END; 
i 
4 


DPI UII £ & BS SSR SSeS 


enery is an end range entry and the book identifiers 
are the same; found the corresponding END 


If BEGIN and END are on same page and have identical 
display attributes, then don't generate a range. 


XXPTR Fxx$V BEG N) = FALSE; 
XXEND EXXSVZEND] = FALSE; 


ee ce ee ce ce ee ce we ce ce ee ee ee ee ce ce ee ee ee ee ee ee el ee el el el ee cee ee el cee ce el ce ce cl ce cee ce el el ce el ce ce ce ee ee el el ed bee 


WOOO DOVODOOVOOOO OOOO DODOOOODOOOODOODOODOOOOONO 


FPFWAWNWIWw 
—OOONOUS WN Oo 


ee ee ee ee eee ee eee 
ee ee ee el el a ee ee el le le cl ce le el el ee tl el cl el el cl el el el el el 


orc 
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NDXFMT NDXFMT == Binary index formatter IB-se -1984 00:58:17 AX-11 Bliss-32 V4.0-74 & 
v04-000 NS_PAGE_NO == Jenerate page # List 30071 38¢ $9 330:54 RUNOFF ..SRC NOKFMT BLL 4 ae 3] 
ten SAMEPG (.XXPTR, .XXEND) 


! Not same page or display attributes not identical. 
! Generate page reference. 


i Append ' to ' 


' 
! 
' 
! 
! 
FILL_LINE (2, CHSPTR (UPLIT ('to')), .INDENT, 

~MAX_EXT_LENGTH, FALSE, FALSE, TRUE); 


' 
Insert end of range number 


PAGE_REF (.XXEND, INDENT, .MAX_EXT_LENGTH); 
! 
Reset BEGIN and END attributes. 


XXPTR CXX$V_BEGIN] = TRUE; 
XXEND CXX$VZENDJ = TRUE; 


EXITLOOP; ! Exit loop 


ELSE 
- SKIPPED_ENTRIES = .SKIPPED_ENTRIES + 1; 


PAPAS OMIM BB PPLE 


IF_ .SKIPPED_ENTRIES NEQ 0 
BEGIN 


i There were entries inside a page range that were skipped. 
} Tell the user about it 


ooooo WOO OODOOOOWMWWOWW WOM MOONI NNN NNN NSIO 
WODODOOODO OOO ODOOODODDODODODODODODDODODDDODODODDOODOODO0O000 


WOOO NNN NN NNN SIO OO 


PWN 9 OONOAU EWN 9 ODNAU EWN OOO NAME WW OOONOUL wT 


ee 
nn" 
— 


L MIF XBLISS (BLISS32) 
oS XZTHEN ! Signal errors in BLISS32 
'e4 SIGNAL (INDEXS_SKIPPED, 1, .SKIPPED_ENTRIES); 
49 ¥ Oae ZELSE ! Use $XPO_PUT_MSG otherwise 
\§ U 38 $XPO_PUT_MSG (SEVERITY = WARNING 
1 U 98 STRING = $STR_CONCAT ($STR_ASCII (.SKIPPED_ENTRIES), 
14 U 1988 * reference(s) inside page range - ignored')); 
i U 1989 
13 
18 
1 


ENTMSG (); ' Dump the entry too. 
END; 


S333S333 


LVSVSVSTSVSID OP OP PD OS OD OD OA A A AAA MMII OH NINN NIN III 09 09 09 09 CD CO CO CD OD CD CD CD CD CO ~~ S 


the following Line. 


ee ec cl ee ee ee ee ee ee ed ed ad ed od 
ee ee ee en ee ee ee eS SS coe 


RIMQPOPIPIPONIPIPINNINPYNIPOAINIAININPINYININININIDD 3? 8 9 Ot 9 OP SS Sh 


Be Se Se Se Oe Se Se Se Se Ge Se Be Fe Ge FH Se Se Se Se Ge Se Se Fe Fe Ge Ge Fe Se Ge Se Se Ge FH Se Ss Fe Se Ss Se Ge Se Se Se Se SHSe Ge SF Ss 5S ee FHS Se Sees 
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NOTE: to avoid skipping entries inside a page range, remove 
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8% PAGE_NO == Jenerate page # List Hat 7 99:38:56 RUNOFF SRE NOMFMT OL Te 


if SAMEPG (.XXPTR, .XXPEEK) 
THEN | 


; 5 1999 XXPTR = .XXEND; 

; § 636 END; 

; 8 g COTHERWISE): 

: 3 0 BEGIN 

; 1 098 i Normal page ret 

: § $09 LOCAL 

; : 90 XXPEEK : REF $XX_BLOCK; 

: 01 PAGE_REF (.XXPTR, .INDENT, .MAX_EXT_LENGTH); ! 

01 REF GENERATED = trues EXT _LENG Insert reference into Line 
: 01 XXPEEK = .XXPTR CXXSA_LINK]; | Point to next entry 
3 01 WHILE .XXPEEK NEQ 0 06 

: ! BEGIN 

3 : : Check for duplicate references 

: 1 


Duplicate reference - skip it 


XXPTR = .XXPEEK 
ELSE 


Not same, terminate scan 
EXITLOOP; 
XXPEEK = .XXPEEK CXXS$A_LINK); 
END; 
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— CNDX$V_PAGE _MERGE] 
BEGIN 


i User selected old style page merging 
(adjacent pages form a page range) 


LOCAL 
RANGE_SEEN; 


RANGE SEEN = FALSE; 

XXPEER = .XXPTR CXXS 

WHILE .XXPEEK NEQ 0 
BEGIN 


ao 


co, 
a 


IF PAGMRG (XTNPAG (.XXPTR CXX$H_PAGE]), XTNPAG (.XXPEEK CXXS$H_PAGE])) 
AND SAME_ATTR (.XXPTR, .XXPEEK) 


HEN 
BEGIN 
. Found some adjacent pages with same display attributes 
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7 
| 
| 
RANGE_SEEN = TRUE; 
XXPTR= .XXPEEK; | 
LSE | 
EXITLOOP; 
XXPEEK = .XXPEEK CXXSA_LINKI; 
END; 


IF_ .RANGE_SEEN 
THEN 
BEGIN 
| We found a page range - write it out 


FILL_LINE (2, CHSPTR (UPLIT (‘to’)), INDENT, .MAX_EXT_LENGTH, FALSE, FALSE, TRUE); 
PAGELREF (.XXPTR, INDENT, .MAX_EXT_LENGTH) ; 


TES; 
END; 
! 
Check for more to do 
MORE = FALSE; 
XXPTR = .XXPTR CXXSA_LINK]; 
WHILE .XXPTR NEQ 0 DO 
BEGIN 
IF NOT .XXPTR CXX$V_END) 
THEN 
BEGIN 
Not a END range 
MORE = TRUE: 
EXITLOOP; 
END; 


XXPTR = .XXPTR CXX$A_LINK); 


IF MORE ! More to do 
AND .CMDBLK CNDX$V_PAGES) ' Generating page references 
ao ghEF GENERATED ! Generated a reference 
(.CMDBLK CNDX$H_LAYOUT] NEQ SEPARATE) ' Not an index with separate references 
on (.CUR_BOOK EOL .XXPTR CXX$A_B00K)) ! or next book is the same as the current one 
THEN 
BEGIN 


i Append a comma 
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.PSECT $CODES,NOWRT,2 
OFFC 00000 INS_PAGE_NO: 
WORD 


' 
NDXFMT == Btnery index formateer -Sep-1984 AX-11 Bliss-32 V4.0-74 
INS_PAGE_NO == generate page # List s-$00- 1984 98: 35: i RUNOFF. SRC NOKFMT-BL I vi 
| 
: i 23 Hi ¢ cHSUCHAR A (%C LINE_POINTER) 
Py Fe N 4 Py 
> 1341 118 4 INT_LINE-LENGTH = .INT_CINE_LENGTH + 1; ; 
3 1 § 118 & EXT_LINE_LENGTH = .EXT_LINE_LENGTH ¢# 1; : 
: 4 117 4 TMS-LINE-LENGTH = .TMS-LINE-LENGTH * .CHRSIZ ([%C','); : 
> 1344 118 END: ; 
: i te 136 END ; 
: 4 23 131 ; 
: : rt } ¢ WHILE .MORE; !' Loop if more to do : 
: 1350 124 1 END; 'End of INS_PAGE_NO ; 
.PSECT $PLITS,NOWRT ,NOEXE ,2 : 
00 00 6F 74 003C4 P.ADQ: .ASCII \to\<0><0> : : 
00 00 6F 74 Q03C8 P.ADR: .ASCII Naa oe ; : 
. Save R2 R3, R4,R5,R6,R7,RB,RI,R10,R11 ; 1772 ; 
58 000000006 EF 9€ 0000 HOVAB OGM MDBLK $4 ; | ; 
53 04 AC DO 0000 MOVL LIST T HEAD, RUXPTR : 1820 ; 
59 D4 0000D CLRL EW. CINE : 1828 
57 04 0000F CLRL CUR“ BOOK : 182 
03 02 AB 81 90011 CPW ENDBLK*6, #3 + 1825 
56 08 AB 0c AB C1 $001? ADDL3 CMDBLK+16, CMDBLK+12, INDENT + 1831 
55 00000000' EF D0 9091p MOVL PAGE _ WIDTH, MAX_EXT_LENGTH : 1832 
56 000000006 Ef 01 78 $09 6 1$: ASHL i. INDLVL, INDENT : 18 
5 08 AB DO 000 : MOVL MDBLK+ te. MAX_EXT_LENGTH + 1837 
58 D4 00032 2$: CLRL REF G ATED > 1845 
Oc «AB 37 D4 99 4 CPL CUR™ ~BOOK. 12(XXPTR) + 1847 
57 0c A3 D0 0003A MOVL T2cxxPTR), CUR_BOOK : 1856 
7E 04 000 ; CLRL (SP) : 1857 
0220 F BB 0004 PUSHR w*H<RS, R9> : 
5 DD O44 PUSHL 1 NDENT : 
DD 46 PUSHL CURB : 
00000000v FF 05 FB 0004 CALLS # “BOOK. REF ; 
3 02 ap 81 004F CMPU CHOBLK +6, #3 : 1859 
BNEQ 3 
59 1D MOVL if ; 
e 1 00 00058 3$: MOVL = #1, ner “GENERATED F 1860 
03 FC AB 5 4$: BBS 3, : 186 
01 S$: BR 19 3 
FS OA a3 6 E és: BBS #3, 10(XXPTR), : 1872 
0 A OA ; BBS 24 10(XXPTR). *$ : 187 
OOA 1 BRW 14§ 3 
24 D4 p 7$: CLRL SKIPPED_ENTRIES > 1888 
5 0D 0007 PUSHL  MAX_EXTLENGTH > 1889 


NDXFMT Po yy Bane By cin PE ig: sep-1984 90:38:17 AX-11 Bliss-32 V4.0- i ¢ Page 


INS_PAG -Sep-1 RUNOFF .SRCJNDXFMT.BL 
0048 8F 6B 00074 PUSHR gamers gh ; 
00000000V EF 3 F 78 CALLS #3, PA : 
D 7F MOVL a = : 18 
D MOVL KXBTR : 18 
6 3 wee ta es 
090000006 8F DD 9 PUSHL saad NOEND : 
900000006 0 1 FB F CALLS #1, LIBSSIGNAL : 
000G EF g re CALLS ENTMSG : 1 
1 90 BRB 1 : 1 
S 6 00 oF 9$: MOVL § (XXEND), XXEND +1 
4B A A e O0Ag BBC #3, 10(KXEND), 118 +1 
cota Oc A2 D1 OO0A CMPL 12¢XXEND), 12(XXPTR) +1 
44 12 OOOAC BNEQ 118 : 
OA A3 04 BA OOAE BICB2 #4, 10¢xxPTR) : 1 
OA A2 8A 0008 BICB2 #8. 10(XXEND) :1 
DD 0086 PUSHL  XXEND : 1 
DD 0008 PUSHL XXPTR : 
00000000v Ef 02 FB OOBA CALLS #2, SAMEPG F 
4 50 €8 000C1 LBS. =—s_ RO, -10 : 
01 DD 0064 PUSHL #1 ; 
: C O0¢6 CLRQ. = (SP) : 
5 DD O00C PUSHL MAX_EXT_LENGTH : 
56 DD OOOCA PUSHL _INDE : 
00000000° FF OF d90¢¢ PUSHAB P.ADQ ; 
3 DD 0000 PUSHL ue : 
00000000V_ EF FB 00004 CALLS #7, FILL_LINE ; 
5 DD 00008 PUSHL MAX_EXT_CENGTH ; 
0044 F BB 000DD PUSHR #*M2R2,R6> : 
00000000V FE 03 EB 00E1 CALLS #3, PAGE_REF ; 
OA A3 04 O00E8 10$:  B1SB #4, TOCARETR) : 1 
OA A2 08 88 O90E B1SB 10(XXEND) : 1 
04 1 000F BRB :1 
4 D6 OOOF2 11S: INCL KIPPED_ENTRIES :1 
BF 11 0004 BRB 31 
54 D3 OOF6 12$: TSTL  SKIPPED_ENTRIES 31 
18 13 O00F BEQL ; 
54 0D OOFA PUSHL  SKIPPED_ENTRIES F 
or DD OOOFC PUSHL ; 
000000006 8F DD OOF PUSHL #DSRINDEX$ SKIPPED ; 
boovsbe08 EF 09 FB 001 ee cu ty 
5S $ 00 112 13$:  MOVL  XXEND, XXPTR : 1 
0098 1 0011 BRW : 1 
bd 00118 14$:  PUSHL MAX_EXT “ag : 2 
0046 8F 6B OOTIA PUSHR #*MZR3,R : 
00000000V_ EF 3 FB 0011 CALLS 43, PAGE : 
4 1 00 001 MOVL REF S CENERATED : 20 
2 63 00 001 MOVL ie XXPEEK 3 20 
16 1300128 15$:  BEQL 16$ : 20 
DD 00120 PUSHL XXPEEK : 20 
DD 0012F PUSHL : 
00000000V_ EF i 1 CALLS » SAMEPG ; 
; DO 001 MOVL nO, EEK, XXPTR ; 
2 é p 1 F MOVL (XXPEEK), XXPEEK ; 
E 14 BRB 15$ : 


000000006 


000000006 
000000006 


00000000v 


00000000Vv 


00000000v 


F6 OA 


38 FC 


oc 
00000000" 


00000000° 


NOXFMT NDXFMT == Binary index formatter 
v04-000 INS_PAGE_NO == generate page # List 
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; Routine Size: 521 bytes, Routine Base: 
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SNS NINO AO IIE EE EE 


NomM—-CVIIOM"O OMS WS MA—OoOoMm 


“OOCVT 
TWO "VII O-CO0OWOWT 9 OBO BVI @wwo f+ — 


SCODES + 0686 


IGoge oe | 
~Sep-1 


168: 


Be 28:25:56 


17$: 


18$: 


D 

BB 

FB A 

D4 00183 19 

DO 00185 20 

13 0018 

EO 0018 

DO 0018 

E9 001C2 21$: 

E1 O01C 

E9 C 

HB 

hf 01D 

1 D 

.] 09 22$: 

D E 

06 E 

D E 

Hi 

i} S 238: 
4 24%: 


#3, CMDBLK+1, 19$ 
RANGE_ SEEN 
(XXPTR), XXPEEK 
B(XXPEEK), =(SP) 
#1, XTNPAG 

XXPT 


R), =(SP) 
TNPAG 


<x «KX DRDBROD 


On x KX ONMO— — O&O 


Pp 
| 
P 
1 
E 


R 
#2, SAME_ATTR 
RO. 18$ 


#1. RANGE_SEEN 
XXPEEK, XRPTR 
(XXPEEK) , XXPEEK 


RANGE. SEEN, 19$ 
-(SP) 

MAX EXT_LENGTH 
INDENT 

P.A 

a3 

#7, FILL_LINE 
MAX_EXT_CENGTH 
#*°M2R3,RO> 

#3, PAGE_REF 
(XXPTR), XXPTR 

#3, 10(XXPTR), 208 
MORE 24$ 

#3, CMDBLK, 23S 
REF GENERATED, 23$ 
MDBLK+6, r 
YR_BOOK, 12(XXPTR) 
#44, @LINE_POINTER 
LINE_POINTER 


CINE_LENGTH 
bine ENGTH 
R 


f 
bs TMS_LINE_LENGTH 
als 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJNDXFMT.BLI; 
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RUNOFF ..SRC MT.BLI; 
ZSBTTL “BOOK_REF == Generate a book reference for master index' 
ROUTINE BOOK"REF (BOOK, INDENT, MAX.EXT, NEWLINE, COMMA) : NOVALUE = 


i FUNCTIONAL DESCRIPTION: 


' 
This routine inserts a book reference into RNO_LINE 


FORMAL PARAMETERS: 


BOOK = Address of book name string 

INDENT = Number of blanks 9 indent a new Line 
MAX_EXT = Maximum external Line Length 

NEW LINE= Put book reference on a new Line 
COMMA = Append a comma to the book name 


i IMPLICIT INPUTS: 
LINE_POINTER 


EXT_CINE_LENGTH 
INT-LINE_LENGTH 
INDCVL 


Pointer to RNO_LINE 
External Line Tength 
Internal Line length 
Current index level 


CMDBLK Command Line information block 
PAGE WIDTH Output page widt 
TMSSTD Standard character size for TMS 


IMPLICIT OUTPUTS: 
LINE_POINTER 
EXT_CINE_LENGTH 
INT-LINE_LENGTH 
TMS_LINE_LENGTH 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 
None 
~~ BEGIN 


OCAL 
LEADING_BLANK, 
STR_VEC™: REF VECTOR, 


LEN; 
LEADING _BLANK = TRUE; 
IF_ .NEW_LINE 
BEGIN 
Flush current Line before inserting reference 


pointer to next position in output Line 
external Line Length 

internal Line length 

Length of Line in TMS relative units 


Liss 


| B 


N 4 
FMT NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss- 4.0-74 
-000 BOOK _REF -=- Generate a book reference for maste 730071382 99 330;84 RUNOFF’ SRE NDMFAT OL 444 tae 3 
409 INS_LINE (. INT LINE LENGTH, CHSPTR (RNO_LINE), .EXT_LIN NGTH); 
4 LINE_TYPE = (IF .INDLVL EQL 6 THEN ENTRY_W ELSE ta Pa : 


INDENT _LINE (. INDENT); 
LEADING _BLANK = FALSE; 


A aaa CNDX$H_LAYOUT] EQL SEPARATE 
BEGIN 


i Separate layout. Pad Line to appreec tate Length. 
! NOTE: Separate layout is not allowed for TEX format. 


LEN = .CMDBLK CNDX$G_COLUMN_WID] + .CMDBLK CNDX$G_GUTTER_WID] - .EXT_LINE_LENGTH; 
IF .LEN GTR 0 
THEN 

BEGIN 

i NOTE: if LEN LEQ 0 then Line was already peceee or overflowed. 

! In ony case we don't pad it cause we'll blow up with the 

negative count. 

EXT_LINE_L.ENGTH = .EXT_LINE_LENGTH 


* 
IF (.CMDBLK tigen EQL TMS11 
TE ae NDXSH_FORMAT) EQL TMS11 


N 
BEGIN 
TMS11 output (Line is padded with a tabs) 


-LEN; 


_A) 
“€) 


INT_LINE-LENGTH = , NGTH + 2; 
TAS CUINE LENGTH = (.CMBBLK CNDX$G_COLUMN_WICD] + .CMDBLK CNDX$G_GUTTER_WID]) * TMSSTD; 


ELSE 
BEGIN 


i RUNOFF output (pad Line with spaces) 


iNT_LINE_LENGTH = .INT_LINE_LENGTH + .LEN; 
CHSFILL THC’ ', .LEN, TLINE~POINTER); 
LINE POINTER ="CHSPLUS (.LINE_POINTER, .LEN); 
END; ‘ 


LEADING_BLANK = FALSE; 

END: 
| 
| 
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ELSE 
' 


Get pointer to book and Length of book name 
STR_VEC = .BOOK; 


RE 
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erent -- Binary index formatter ibese AX-11 Bliss-32 V4.0-74 Page 70 
BOOK_REF -=- Generate a book reference for maste 300-1 382 99: 38: yy RUNOFF .SRCJNDXFMT.BLi; . (7) 


3 LEN = .STR_VEC (0): : 
4 PTR = taserhe Ftp “vec (13); : 
4 ' ; 
i Insert book name into Line : 
i FILLLLINE (.LEN, .PTR, .INDENT, .MAX_EXT, FALSE, TRUE, .LEADING_BLANK); ; 
4 ‘ ; 
rk ; Append comma to end of reference if necessary ‘ 
30 if .COMMA : 
1 THEN : 

3g BEGIN : 
5 CHSWCHAR_A (%C',", LINE_POINTER); 
54 INT_LINE-LENGTH = .INT_CINE_LENGTH + 1; 
55 EXT-LINE_LENGTH = .EXT_LINE_LENGTH + 1; 
36 TMS“LINE LENGTH = ,TMS[LINE-LENGTH + .CHRSIZ C%C','); 

g 58 $ : 

2259 1 END; 


O3FC 00000 BOOK_REF: 
wo Save Re R3,R4,R5,R6,R7, RB, RO 


. 
Nm 
at 
™m 
oa 


59 000000006 EF 9E 00002 MOVAB CMDBLK+ : 

58 00000000' FF 3 00009 MOVAB LINE POINTER, R8 ; 
3 1 00 0001 MOVL #1, CEADING BLANK : 3174 
3 10 AC €9 0001 BLBC = NEW_LINE, : 2176 
0488 C8 DD 0001 PUSHL EXT"LINE. LENGTH + 2182 

04 A8 9F 0018 PUSHAB RNO“LINE™ : 

0484 C8 DD 0001 PUSHL INT~ “LINE LENGTH : 

00000000V_ EF 03 FB 000 CALLS #3, ~INS_CINE : 
000000006 EF D5 000 TSTL TNDLV > 2183 

50 8 DO 00081 BOY is RO : 

5 11 000 BRB 2$ : 

50 09 00 0036 1$: MOVL #9, RO ; 

04co 68 0 00 00039 2$: MOVL RO, LINE_TYPE : 
08 AC DD 0003€ PUSHL > 2185 

00000000vV_ EF oI Fe 41 CALLS #1, INDENT_LINE : 
11 48 BRB : 2187 
03 02 Ad 8] 4A 38 CMPW MDBLK+6, #3 : 2190 

4D 0 af BNEQ ; 
50 08 a9 0c a C ADDL CMDBLK+16, CMDBLK+12, RO : 2197 
56 50 0488 i ( 6 SuBL XT_LINE_LENGTH, RO, LEN eee 
0488 cB 6 C 7 ADDL2 EXT LINE _LENGTH : ; 07 
0 6 e 6 CMPW teh DELKe #27 : 2209 

3 BEQL «ss 4S : 
03 69 6 é CPW Groau4, 3 > 2210 
00 «88 006 8F 96 p 4$ MOVB &TAB, @LINE_POINTER > 2216 

68 D6 INCL LINE. POINTER : 


; Routine Size: 


218 bytes, 
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NDXFMT == Binary index formatter 
BOOK_REF <= Generate a book reference for ante. 
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98: 35: i AX-11 Bliss-32 V4.0-74 


RUNOFF .SRCJNDXFMT.BLI; 
#TAB, wee!E€| 


LINE POINTE 
43 INT LINE_LENGTH 
aTAsstD; RO, TMS SLINE _LENGTH 


tN, INT =| INS - LENGTH 
» (SP)> #327 LEN, @LINE_POINTER 


=(SP) 
INDENT, =(SP) 
PTR 


LgN 
#7, FILL LINE 


CINE NLENGTH 
NE“LENGTH 


a R 
bs, TMS_LINE_LENGTH 


LL -ssssssissssste-~ts - “ —— 


dD 5 
NOXFMT NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss-32 V4.0-74 P 72 
v04-000 PAGE_REF == Format a page reference g73e0- 138% 99538544 RUNOFF. RCINDXFMT.BLI; ee (8) 
88 60 ZSBTTL "PAGE_REF == Format a page reference’ 
89 61 | ROUTINE PAGEREF (XX ENTRY, INDENT, MAX.EXT) : NOVALUE = 


i FUNCTIONAL DESCRIPTION: 
This routine formats a page reference and inserts it into RNO_WORD 
FORMAL PARAMETERS: 
XX ENTRY = Pointer to reference to be formatted 
INDENT. = Number of blanks to indent new Line if reference doesn't fit 
MAX_EXT = Maximum external Length of Line before wrapping 
IMPLICIT INPUTS: 
CMDBLK = Command Line information block 
IMPLICIT OUTPUTS: 
None 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 
None 
BEGIN 
MAP 
XX_ENTRY : REF $XX_BLOCK; 


LOCAL 
aad : VECTOR CCHSALLOCATION (400)], 


wonooo0no 
Uw 


LEN 
PAGE : REF PAGE_DEFINITION; 

PAGE = XTNPAG (.XX_ENTRY CXX$H_PAGE)); 

PTR = CHSPTR (REFBUF); 


IF _.CMDBLK CNDX$V_STANDARD_PAGE] 
THEN | 


User wants traditional page numbers 
etEN = PACPAG (.PAGE, PTR) 


IAPOPOPONINPIPYINPININYNYD 2 9 OOO 


ELS 
User wants running pages 
LEN = PACBAS (.PAGE CSCT_RUN_PAGE], PTR, 10); 


ee a cee a eae a a ed a ae ce ee a ee ee ca a a a ec a ce ee ce ee ca ec ed ee ed ed 
tt = I I BIHOODODOOOO OOOO 000 OOO 090000 0909 09 09 09 09 09 SII NINES NOAA AAO AO 


ANEW OO ODNOAUE UN 0 DOONAN EWN (OOD NO UE WA SO OONOUS WN OVO 


PROPOROPOPONOPONOPOPIPONONPUNIPONONOPUPOPONNPUNIPUD) 2 St 2 


RIPIPIPOPININIPININYINININIPIPYPIPIPIPININPYNONINIPYNPIPONININYPINIPYINIPIPIPIPIPUNIPUPIPINOPNOPUNNONPUPoPonofrounonygd 
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5 
FMT NOXFMT == Binary index formatter ib-5e =1984 :58:17 AX-11 Bliss-32 V4.0-74 P 
PAGE_REF == Format a page reference ~8ep-19 4 9038: u7 RUNOFF .SRCINDXFMT.BLI: _ aS v0 
> 1545 17 IF_.XX_ENTRY CXX$A_APPEND] NEQ 0 ; 
:1 46 1 THEN ; 
: 154 1 BEGIN ; 
: i rk H ded 
Py ’ ave appended text Py 
: 1580 g - : 
3; 1551 LOCAL $ 
: 1 2 i A_VEC : REF VECTOR, ; 
ie AE 7 
: i $5 A ec XX_ENTR $A_APPEND] : 
; VEC =. NTRY_CXXS$A_APPEND]; : 
3 1 2$ 7) A-LEN = .A_VEC (0); 3 
; 1228 9 A_PTR = CHSPTR (A_VEC (1)); : 
: 1560 : CHSMOVE (.A_LEN, .A_PTR, .PTR); F 
: 1561 LEN = .LEN 7 .A_LEN; : 
3 1266 4 END; 3 
3; 156 5 3 
: 1564 336 ' F 
3 1302 Seze Insert reference into Line 3 
: 1367 2339 “ FILL_LINE (.LEN, CHSPTR (REFBUF), .INDENT, .MAX_EXT, .XX_ENTRY CXXS$V_BOLDJ, .XX_ENTRY CXXS$V_UNDERLINE), : 
: 1569 2341 1 END; : 
O1FC 00000 PAGE_REF: : 
.WORD Save R2,R3,R4,R5,R6,R7,R8 : 2261 ; 
5E 98 AE 9 00002 MOVAB =-104(SP5, SP : ; 
56 04 AC 00 00006 MOVL XX_ENTRY, R6 > 2301 : 
7E 08 A6 32 OOOOA CVTWL 46-8 (R6), =<SP) : ; 
000000006 EF 01 FB 90005 CALLS #1, XTNPAG ; ; 
52 50 pO 0001 MOVL RO, PAGE ; ; 
6E 04 AE 9E 00018 MOVAB REFBUF PTR : 2303 : 
OD 000000006 EF 0 Ei 0001C BBC #5, CMDBLK, 1$ : 2305 ; 
4004 8F BB 00024 PUSHR #*M<R2,SP> : 2310 : 
000000006 EF 08 FB 00 8 CALLS #2, FACPAG F ; 
10 11 O002F BRB 2$ : : 
OA DD 00031 18: PUSHL #10 : 2315 : 
04 A 3 99 PUSHAB PTR ; : 
7E —E Ae 3¢ MOVZWL 14(PAGE), -(SP) : : 
000000006 EF Q FB O003A CALLS #3, PACBAS ; : 
8 0 oD 9 41 2$: MOVL RO. LEN ; : 
06 AB D 44 TSTL  4(R6) : 2317 : 
OF 1 0 47 BEQL = 3$ ; : 
50 06 AB D 49 MOVL  4(R6), A_VEC ; 8 : 
57 9 p 004D MOVL (A_VEC)+> ALL ; 2329 3 
00 BE 60 0 MOVC3 A_CEN, (A_PTR), aPTR : : 3 
58 Pie ADDL2 A7LEN, LEN ; : 
1 0D 3$: PUSHL @# ; 9 : 
7E OA Ab 1 1 &EF A EXTZV #1, #1, 10(R6), =(SP) : : 
7E A 6 1 0 EF 60 EXTZV 1; 10(R6); =(SP) F : 
a 08 AC ?D 00066 MOVO INDENT. -(SP) : : 


, 9 
XFMT NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss-32 V4.0-74 Pa 74 
vou-000 PAGE _REF == Format 8 a page reference - a 99238: RUNOFF .SRCIJNDXFMT.BLI; - (8) 


oF PUSHAB REFBUF 
mo DD PUSHL LEN 
00000000V EF fe CALLS #7, FILL_LINE 


; Routine Size: 119 bytes, Routine Base: SCODE$ + 0969 


SS 


2341 


MT 
PG 


5 
-- Binary index formatter 18-5e -1984 00:58:17 AX-11 Bliss-32 V4.0-74 P 5 
oo Compare page references ~3007 1382 ey LRUNOFFoSRe NDOXFMT.BLI; ro (33 


3 
33 
"2 
ze 


SS 


ZSBITL "SAMEPG == Compare page references’ 
ROUTINE SAMEPG (X1, X2) = 
FUNCTIONAL DESCRIPTION: 
This routine compares two page references to see if they are equal. 
FORMAL PARAMETERS: 


Xl = Pointer to first page reference 
X2 = Pointer to second page reference 


{ 
i 
! 
' 
i 
! 
! 
i 
! 
2 : IMPLICIT INPUTS: 
: None 
3 IMPLICIT OUTPUTS: 
590 i None 
591 ! 
236 ' ROUTINE VALUE: 
a7 } COMPLETION CODES: 
332 ; Returns TRUE if references are equal, FALSE otherwise 
597 i SIDE EFFECTS: 
598 ! 
599 ! None 
600 !<< 
601 BEGIN 
one MAP 
60 X1 : REF $XX_BLOCK, 
Be X2 : REF $XX_BLOCK; 
5) — (XTNPAG (.X1 CXXSH_PAGE]), XTNPAG (.X2 CXXS$H_PAGE]), TRUE) 
i] 


i Pages are identical in the RUNOFF sense. 
Compare reference attributes 


gph TURN SAME_ATTR (.X1, .X2) 
! 
; Pages not equal in RUNOFF sense 


RETURN FALSE; 
END; 
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001C SAMEPG: .WORD Save R2,R3,R4 ; 2343 
54 000000006 fr . MOVAB XTNPAG, R4 


E N | 
D PUSHL #1 : 2377 


XFMT NDXFMT == Binar, index formatter Sep-1984 00: 7 AX-11 Bliss-32 V4.0-74 
VOu-000 SAMEPG == Compare page references if se0-1944 99:38: df i NDKFMT BL. ha (38 v0 
3 A MOVL x2 ; 
FF ef A BS $8 CVTWL Aea3) -(SP) : 
64 gi FB 0001 CALLS #1, X ee : 
2 04 3 oS i MOVE’ : 
3 08 he B8 1 CVTWL Akan -(SP) : 
a os a a : 
000000006 FF FB CALLS , PAGEQL ; 
: ¢ 8 O00sF PUSHR "ACRE, R3> ; 2383 
00000000V EF : fe 9031 CALLS #2, SAME_ATTR tne 
50 D4 00039 1$: CLRL ~—_ RO ; 
04 00038 RET + 2390 


; Routine Size: 60 bytes, Routine Base: $CODE$ + 09E0 
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SAME_ATTR = Check page references for same attr 
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-Sep-1984 
ZSBTTL "SAME_ATTR = Check page references for sa i ; 
ROUTINE SAMETATTR rr bast hae ange i: Acta 
FUNCTIONAL DESCRIPTION: 

This routine compares the display attributes of two page references 
FORMAL PARAMETERS: 


x1 - Pointer to first page reference 
X2 - Pointer to second page reference 


IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 
None 


ROUTINE VALUE: 
COMPLETION CODES: 


TRUE if references have the same display attributes, FALSE otherwise 
SIDE EFFECTS: 
None 
BEGIN 
MAP 
X1 : REF $XX_BLOCK, 
X2 : REF $XX_BLOCK; 
SELECTONE TRUE OF 
SET 
C(.X1_ CXKSA_APPEND) NEQ 0) AND (.X2 CXXSA_APPEND] NEQ 0)): 
‘ 


Both have appended text. Compare strings 


LOCAL 
STR_VEC : REF VECTOR, 
Pl. 
L2, 
Pe; 
STR_VEC = .X1 EXxSA_APPEND]; 
L1 = .STR_VEC (0); 
Pl = CHS$PTR (STR_VEC [1)); 
STR_VEC = .X2 XXSA_APPEND]; 
Lg = .STR_vEC (0); 
P2 = CHS$PTR (STR_VEC (1); 


RUNOFF .SRCJNDXFMT.BLI 


tH 
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5 
NDXFMT == Binary index formatter Ibege -1984 00:58:17 
SAME_ATTR ~ Check page references for same attr ; 3B 99:35:44 


44 
44 


PS SS SSS SSS 
‘O000 


AAO 


WRC OONOULS Wr 


MNS LLESE 


-Sep-1 
| tae (.L1, .P1, .L2, .P2) THEN RETURN FALSE; 


C¢.x1 CXXSA_APPEND) EQL 0) AND (.X2 CXXSA_APPEND] EQL 0)]: 
; Neither have appended strings. Do nothing. 
COTHERWISE): 


i One has appended text and the other doesn't. 
References are not identical 


RETURN FALSE; 


TES; 
RETURN ( 
(.X1 [XX$V_BOLD] EQL . XX$V_BOLDJ) 
AND (.X1 ot r+ EQL .X XX$V_UNDER INEJ) 
AND (.X1 CXX$V“BEGIN EQL .X2 CXX$V~BEGINJ) 
AND (.X1 XX$V_ ND EQL .X XX$V_END ) 
AND (.X1 EXX$A7B00K) EQL .x2 EXX$A~BOOK]) 
END; 
007C 00000 SAME_ATTR: 
-WORD Save R2,R3,R4,R5,R6 
54 04 AC dO 00002 MOVL ‘X1, 
52 04 A& 00 00006 MOVL 4(R4), R2 
53 D4 OO00A CLRL = RB 
5 D3 000C TSTL = R2 
g 13 0000 BEQL 1$ 
D6 0001 INCL R3 
50 08 AC D 901 1$ MOVL  X2, RO 
51 D4 0001 CLRL sR 
06 =A d 01 TSTL  4(RO) 
018 BEQL = -2$ 
6 01D INCL R1 
55 3 D OF 28: MCOML R3, RS 
1 CA BICL2 R5, R1 
01 1 01 9 CMPL =oR1, #1 
1D 1 BNEQ 3$ 
50 52 D A MOVL  R2, STR_VEC 
5 é p D MOVL (SfR VEC), L1 
31 4 AO 0 MOVAB 4(ROJ, PI 
8 AC D MOVL X2, RO 
2h enema 
6 5 SD O3F CMPCS i?" ti). #0, 12, (P2) 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJNOXFMT.BLI; 
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XFMT NDOXFMT == Binary index formatter IGoge -1984 00:58:17 AX-11 Bliss-32 V4.0-74 Page 80 N 
yOu-000 INS_LINE == insert Line qnto page =360 71383 99:38:40 RUNOFF .SRC NDKFMT BL 144 . if v0 
; 1707 476 1 XSBITL ‘INS_LINE <= Insert Line into page: ‘ 
3; 17 3 477 1 ROUTINE INS-LINE CINT_LEN, PTR, EXT_LEN) : NOVALUE = ‘ 
° 170 47 1 '+¢ $ 
; 1710 479 1! 3 
; eh} ' 9 ! } FUNCTIONAL DESCRIPTION: : 
; 118 4 ; This routine inserts a Line into the print page : 
; 1719 484 1 | FORMAL PARAMETERS : : 
; 1713 4 § 1 i INT_LEN - Internal Line Length : 
5 1718 4 1! PTR - CHSPTR to text : 
; ay r 3 : } EXT_LEN - External Line Length : 
: 1721 490 1) IMPLICIT INPUTS: ; 
3: 17 § 491 1! 3 
3 17 2492 1! ALLOWD - Maximum number of Lines allowed on page : 
3: 1726 493 1! LCOUNT - Left column Line count , 
3; 1725 494 1! RCOUNT = Right column Line count : 
: 1726 495 1! CMDBLK = Command Line information block : 
3; 1727 496 1! DOING_LAST - TRUE if LAST_LINE was called to process the last : 
3; 1728 497 1! Line in the column 3 
: 1768 498 1! $ 
3; 1750 499 1! IMPLICIT OUTPUTS: : 
; ye} 500 1! 3 
3 17 § 501 1! LCOUNT - Incremented if Line inserted into left column : 
3; 17 206 1! LLINES - If Line inserted into left column 3 
; i : 7 ! LTYPE - Type of Line if inserted into left column : 
: 17 505 1! RCOUNT - Incremented if Line inserted into right column 3 
3; 1737 208 1: RLINES - If Line inserted into right column : 
3 He a4 : RTYPE - Type of Line if inserted into right column : 
: 1740 509 1 | ROUTINE VALUE: ; 
3 1741 510 1 ! COMPLETION CODES: 3 
; 1086 soy 63 3 
3 174 21¢ 1! None $ 
3 1744 515 1! 3 
3 1745 514 1 ! SIDE EFFECTS: 3 
3 178 a1. © 3 3 
hee a9 1 i _ 
; 1749 318 2 BEGIN ; 
: 1783 3 0 SELECTONE .CMDBLK CNDX$SH_LAYOUT) OF ; 
3 1736 521 SET 3 
3; 175 ; ; : 
3 Ha) Z CTWO_ COLUMN): : 
: 1756 2 5 i Two column output : 
3; 1757 5 § ! : 
3; 1758 5 IF .LCOUNT EQL .ALLOWD 3 
3; 1759 5 3 THEN 3 
3; 1760 5 BEGIN : 
3; 1761 ; 0 : : 
3 1706 1 ! Filling right column : 
: 176 532 : : 


m5 


NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss-32 V4.0-74 
yO4-000 INS_LINE == Insert Line into page 730071382 RY RUNOFF SRE SNOXEMT OL 1. Page 4) vo 
IF (.RCOUNT EQL 0) 
THE 
BEGIN 


| First line in column 
IF CHSEQL (1, .BLANKS, .INT_LEN, .PTR, %C' °) THEN RETURN; 
IF, CMDBLK CNDX$V_CONTINUATION) 

BEGIN 

Generate continuation heading 


DO_CONTINUE (.INT_LEN, .PTR, .EXT_LEN); 
RETURN; 


END; 
A aaa EQL .ALLOWD = 1) AND NOT .DOING_LAST 


J 
Insert Last Line in columr 


“- LAST_LINE (.INT_LEN, .PTR, .EXT_LEN) 
BEGIN 


Insert normal Line 


RCOUNT = .RCOUNT + 1; 
RTYPE C.RCOUNT] = .LINE_TYPE; 


BRANSLS 


BIZBBISIBsoaeagasaa Iss sasases 
PIPIPIPIPIPIPIPINIPININININIPIPIPIPIPIPIPINIFIPIPIPIPIPIPIPIPIPUPIPIPIPIPIPININPYD 


BEGIN 


96 PADLIN (.INT_LEN, .PTR, .EXT LEN, RLINES {.RCOUNT, 0,0,0)); 
97 SAVE_TELLTALE_HEADING (RLINES CO, 0,0,0,0), RTYPE COJ, .RCOUNT); 
799 IF :RCOUNT EQL .ALLOWD THEN PUTPAG (FALSE); 
01 evsee™ . 
308 
804 

5 


iF CHSEQL (1, .BLANKS, .INT_LEN, .PTR, %C* °) THEN RETURN; 
IF .CMDBLK CNDX$V_CONTINUATION) 
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i Left column 
if (.LCOUNT EQL 0) 
THEN 
5 BEGIN 
; First Line in left column 
; BEGIN 
5 
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i Generate continuation heading 
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FMT == Binary index formatter 16-Sep-1984 00:58:17 AX- - -0- 

LINE == Insert Line into page 236p716 4 99:38:47 RUNOFFCSREINDAEMT LOL 104 Page 4 
DO 
RET 


CONTINUE (.INT_LEN, .PTR, .EXT_LEN); 
URN; 


E 
END; 
eg btount EQL .ALLOWD = 1) AND NOT .DOING_LAST 
' 
Insert last Line in left column 
LAST_LINE (.INT_LEN, .PTR, .EXT_LEN) 


ELSE 
BEGIN 


Insert a normal Line 


LCOUNT = .LCOUNT + 1; 
Si Mares ty at LINE TYPE: LINES {.LCOUNT, 0,0,0,0 
SAVE TELLTALE HEADING (LLINES FO: BONG of: LTYPE C04,’ .LC 


OOOOCOCSCOOOOOOOOOO “x 


ONO WO OONOU LS wn 
DOONAN WN @§ O OODNAUNES WO ODNAUE ARN HO OONOUS WHO 


w 


J); 
OUNT); 


FLEES 


DONOUEWN—"OOBNOUSWN OO 


END; 
COTHERWISE): 
BEGIN 


@ocp 0° 
n 


| One column output 


IF (.LCOUNT EQL 0) 
THE 
BEGIN 
First Line in column 
IF CHSEQL (1, .BLANKS, .INT_LEN, .PTR, %C’ ') THEN RETURN; 
IF .CMDBLK CNDX$V_CONTINUATION] 
THEN 
BEGIN 
Generate continuation heading 
DO_CONTINUE (.INT_LEN, .PTR, .EXT_LEN); 
RETURN; 


PUPA & & 
DDD DDD DDD DPA A AAA AAA AAA A MMMNIVIVIUIVIVIV 


WWW A.W AIA AITO RIPUPPPIPUNINIID = OOOO 


AVF WO CONOufwn Oo 


SESSSTERSS 


PAA 


Se 


FWA AWN NAA OI BBB BBB EWE WWIII BBE BBB PWN 


3% 
3 3 
3 1 
; 7 
3% 
3) 
3 1 
3; 1 
3% 
3; 
| 
3 1 
3 1 
3; 
| 
, Y 
3 7 
3 1 
31 
3; 3 
3 1 
3 1 
: 1 
3 1 
3 1 
5 
3 1 
3 7 
3% 
3 1 
.? 
3 1 
3; 
3 1 
3% 
. | 
3 7 
3; 1 
3; 7 
B. 
3 
3 1% 
3; 1 
3 1 
3 1 
3% 
3 1 
3 
3 1 
3 7 
3 
3 1 
3 7 
3 
3 
3 3 


RIPOPIPIPINININIPINIPINIPINIPININIAININAINY 


0 IF (.LCOUNT EQL .ALLOWD - 1) AND NOT .DOING_LAST 
871 64 THEN 

7 64 Insert last Line in column 

75 64 LAST_LINE (,INT_LEN, .PTR, .EXT_LEN) 

2 64 ELSE 

7 BEGIN 


FMT == Binary index formatter ib-Se Sep-1 7 AX-11 Bliss-32 V4.0-7 
LINE == Insert tine into page Sep 3h 98: 35: df RUNOFF .SRC NOXEMT BL Is 


: 187 647 4 ' 
3; 187 648 4 ' Insert a normal Line 
; 1880 649 & i 
is e31 4 Mae EbUNt] =" tin tne_t 
: 1 S¢ 6 é 4 PADLIN (.INT_L ‘ TE LEN, LINES f- .LCOUNT, 0 0,0,0]); 
1884 6 ; 4 SAVE wTELLTALE LACKING. {LLINES CO; 6,0,0,0),. LTYPE COS, .CCOUNT); 
; 1886 655 4 IF .LCOUNT EQL .ALLOWD THEN PUTPAG (FALSE); 
: 188 6 § END; 
: 1888 65 END; 
; 1889 658 
: 1890 659 TES; 
; 1891 660 END; 
FFC 00000 INS_LINE: 
58 9000000y EF 9€ 9002 MOVAB PADLIN, R11 
SA 9909 006 EF 9E 0000 MOVAB CMDBLK, R10 
59 990 006 EF 9E 9019 MOVAB LLINES, R9 
5 b0000 006 EF SE 0001 NOVA  RCOUNT,“R7 
56 090000 0G EF 9E 00 3 MOVAB ALLOWD, R 
0000000' EF 9E 6 g MOVAB BLANKS, R 
54 000000006 EF 2 0 MOVAB LCOUNT, R4 
50 6 AA 003A CVTWL CNDBLK+6, RO 
‘ i nn ay 
00A8 31 0043 BRW 10$ 
66 64 D1 O46 1$: CMPL = LCOUNT, ALLOWD 
: 12 0004 BNEQ 4$ 
Gr fae aaly gow 
04 ac 20 00 85 > 01 20 OO4F CMPCS #1, @BLANKS, #32, INT_LEN, aPTR 
Rf 13 0038 BEQL 6s S$ 
58 6A 06 €0 0005A BBS #6, CMDBLK, 6$ 
50 66 01 C3 0005E 2s: SUBL3. #1 LOWD, RO 
: 2, a on oak 
57 04CC¢ c3 ig 3 BLBC DOING_LAST, 8$ 
- 67 38 6C 3S: INcL RCOUN NT 
00000000GEF40 04 4 ¢3 $f MOVL Tine celts RTYPECROJ 
a a mpyan” Me 
4 ac OD PUSHL INT "LENS 
6B 04 FB CALLS #4, PADLIN 
67 DD C PUSHL RCOUN T 
900000006 EF oF PUSHAB TYPE. 
00000000v_ EF ? 6 Pe A CAS) RIN SAVE TELLTALE _HEADING 
HH oF Bf Al CMPL RCOUNT, ALLOW 


PeSe Se Se Se Se Se Se Ge Ge Ge Se Se Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Se Se Se Se Se Se Be Be tsetse 


rn 


NOXFMT NOXFM | =- Binary index formatter ib-ge Sep-1984 AxX-11 B - 4.0-74 
v04-000 INS_LINE == Insert fie fnto page 300-1 3h 98: 38: UY RUNOFF. BR ¢ NORE: gif: Page 4% 


OOAE 3 AG BRW 16$ ; 
if p N 4$: Ist OUNT ; 2576 
04 Ac 20 00 BS we 01 20 AB CMPCS #1, @BLANKS, #32, INT_LEN, @PTR : : 2582 
BS 1 B4 5$: BEQL Ws : 
47 6A 06 E B86 g8: BBS  CMDBLK, 128 + 2584 
50 66 1 ¢ BA 7$: SUBL3 LOW. R + 2595 
gs U1 SSH eh (a : 
56 04cC e2 £ ¢ gs BLBC DOING_LAST, 14$ : 
64 D CB 9S INCL LCOUN 1 : 606 
50 64 0 CA MOVL OL : 26 
SEH HCH td FF BOK PUSHAA gies adhere : 2608 
7E 8 AC 7D 00006 ova TR, =(SP) : 
4 AC OD OODA PUSHL INT. LEN : 
68 04 FB Opp CALLS he “PADLIN : 
64 DD 00 EO PUSHL LCOUNT > 2609 
8 DD O000E PUSHL 8 : 
59 DD O00E4 PUSHL 9 ; 
00000000v_ EF 03 FB O00E6 CALLS a. SAVE_TELLTALE_HEADING ; 
04 000ED RET : 2527 
64 DS OOOEE 10$:  TSTL LCOUNT + 2620 
1E 12 OOOF BNEQ 13$ : 
04 Ac 20 00 BS - 01 2D OOF CMPCS #1, @BLANKS, #32, INT_LEN, @PTR > 2626 
: en TREE BE came as aes 
7E 08 AC aN 0101 12$: mova PTR, : 3e3 
04 aC DD 00105 PUSHL LEN’ ; 
00000000V EF 03 FB 0108 CALLS i. “bo. CONTINUE ; 
04 01 F RET > 2630 
50 66 01 €3.00110 13$:  SUBL3 ALLOW, RO + 2639 
50 64 01 O14 CMPL UGUNT. : 
14 le 0117 BNEQ : 
OF oacc C5 E 0119 BLBS DOING. LAST, 15$ ; 
E 08 AC 7D ou) 14$ MOVO PTR, =(SP) + 2644 
04 aC DD 001 PUSHL INT_LEN : 
00000000v_ EF 0 FB 4 3 CALLS #3, "LAST_LINE : 
64 D a D 15%: ‘INCL L COUNT > 2650 
50 64 DO O012F MOVL CCOUN : 2651 
6840 044 £3 p 1 2 MOVL LINE EatiPe LTYPECROJ : 
6940 7F 001 PUSHAQ ; > 2652 
7E 8 AC 7D 00138 va R, =(SP) ; 
4 AC DD 0013F PUSHL INT_LEN : 
68 4 FB 0014 CALLS #4,” PADLIN ; 
4 DD 0014 PUSHL LCOUNT : 2653 
DD 0014 PUSHL R : 
| De 00149 PUSHL R : 
00000000v_ EF FB 14 CALLS SAVE TELLTALE _HEADING : 
6 4 p 1 CMPL UcGunt RL > 2655 
9 12 00155 16$:  BNEQ ; 
000000006 EF OF Pe 90189 CALTS 1 : 
04 00160 17$: = RET ‘ + 2660 


SE, — 


—————— 


6 
XFMT NDXFMT == Binary ind formatt 1 -1984 :58:17 - - .0- 
04-000 INS.LINE == Insert Line into page mpeertSRe S8:sb:h7 | HANAN Okisg se ve -Orrs Page 8 v0 


; Routine Size: 353 bytes, Routine Base: S$CODE$S + OAFO 
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6 
NDXFMT NDXFMT == Binary index formatter ig-Se -1984 00:58:17 AX-11 Bliss-32 V4.0-74 Page 86 
v04 -000 SAVE TELLTALE HEADING == Save telltale heading 300-1382 99530544 RUNOFF. RCINDXFMT.BLI; . 138 
; 1893 661 1 ZSBITL *SAVE_TELLTALE_HEADING <= Save telltale heading string’ 
: 1894 6 § 1 ROUTINE SAVE TELLTALE BEAD IND ( 
: 1895 6 | LINES : REF BLOCKVECTOR CL, STRSK_D_BLNI, 
3 3 +] 664 1 TYPES : REF VECTOR, 
; 189 665 1 L_NUM 
; 1898 666 1 )~: NOVALUE = 
; 1899 667 1 !+4+ 
; 1900 668 1! 
; 130) ? ; : FUNCTIONAL DESCRIPTION: 
3 1908 671 1! This routine is called by INS_LINE to save the current Line as a 
; 1300 ore : possible telltale heading. 
3; 1906 674 1! The Line is saved only if it is the first Line of a continuation 
; 1907 675 1! heading, the first Line of a multi-line top level entry or a 
; 1208 O76 ; top-level entry which is only one Line Long. 
3; 1910 678 1! If the Line is saved, it is always saved as the right telltale string 
; Lp ab th : which represents the last top level entry on the page. 
3 1913 681 1! The Line is also saved as the left telltale if the right telltale 
3: 1914 tt 1! string is null which occurs after a right side page has been generated 
: 1915 683 1! and if the Line is the first on the page. 
3; 1916 684 1! 
3 1917 685 1 ! FORMAL PARAMETERS: 
; 1918 686 1! : 
3; 1919 687 1! LINES - Pointer to the blockvector of string descriptors 
: 1920 688 1! for the current column. 
3: 1921 689 1! TYPES - Pointer to the vector of Line types for the 
3 1956 690 1! current column. 
3 19¢7 ed : } L_NUM - Number of the Line being generated. 
; 1382 695 1 ! IMPLICIT INPUTS: 
3: 1926 694 1! 
3; 1927 695 1! RLINES CO, ...] = The right telltale string 
; 1928 696 1! 
3 1396p 697 1 ! IMPLICIT OUTPUTS: 
: 1930 698 1! ‘ 
; 1931 699 1! RLINES CO, ...] = The right telltale string is replaced if the Line 
3 1336 700 1! is saved. 
3 193 701 1! RTYPES (OJ - The right telltale Line type is replaced if the 
3 13¢¢ re 1! Line is saved. 
3; 1935 7 1: LLINES CO, ...] = The left telltale string is replaced if a right hand 
3 1936 7046 1! page was just generated. 
3 19 705 1! LTYPES CO, ...] = The left telltale Line type is replaced if the 
3; 1938 706 1! Line is saved as a left telltale. 
3; 1939 707 1! 
3; 1940 708 1 ! ROUTINE VALUE: 
3 1941 709 1 ! COMPLETION CODES: 
3 13e6 710 1! 
3; 194 711 7 3 
3 1944 ar : 7 
3: 1945 715 1°! SIDE EFFECTS: 
: 13e8 714 1! 
3 194 716 1! None 
: 1948 rie 1 f= 
3 1949 717 «#1 
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NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss- 4.0-7 
SAVE _TELLTALE_HEADING == Save telltale heading 30071382 ey RUNOFF SRE NBKFMT OL 
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DONAOULWN—O 


$ES2 


wr 


PrP PPP RPRB BAAN ANAAN SN Ow, 
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Seseesesses 
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ODODOOOOOODOVOOOO 
SANNNS 
a 


RAaNSS 


w 
NOUS WN"OOONOu 


ooooono 


SELES 
PAA DUIVIVIZ UIT & £- 


PRR RRP PLL LPP LL 


—Owo° 


he ek a ad dd od 
ao 
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~N 
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PUNTO BE EEE EWS SWINE RRR 


SSPeSeSSSSESFSE33 


Rhone 


F 6 
Sep-1 


BEGIN 
LOCAL 
LINE NUMBER, 
SAVE LINE; 


LINE_NUMBER = .L_NUM; 
SAVE_LINE = FALSE; 


oes | a - TYPES C.LINE_NUMBER] OF 
CCONT HEAD): 
BEGIN 


A continuation heading. 
iF_.LINE_NUMBER EQL 1 
THEN 
BEGIN 
: Only save the first Line in a continuation heading 


SAVE_LINE = TRUE; 
END; 


END; 
CGUIDE): 
BEGIN 
A guide heading. 
BIND 
RHEAD = RLINES (CO, 0,0,0,0] : SSTR_DESCRIPTOR (); 


IF (.LINE NUMBER EQL 1) 
Map CRHEAB CSTRSH_LENGTH] EQL 0) 


BEGIN 

i This guide heading is the first Line on a left hand page. 
{ Set flag which indicates that the first peers entry 

} on the page should be saved as the left telltale. 


SAVE_ENTRY = TRUE; 
END; 


CENTRY_E): 
BEGIN 


The Last Line in a top level entry. 
DECR I FROM .LINE_NUMBER - 1 TO 1 DO 
BEGIN 


c.  caaaies CSTRSH_LENGTH] EQL 0) 
LINE _WUNBER EQL 1) OR .SAVE_ENTRY 


Ss. 
wre 


6 

worry NDXFMT <= pinery index formatter 1$-sep-1984 90:38:17 AX-11 Bliss-32 V4.0-74 Page g8 

v04-000 SAVE TELLTALE HEADING == Save telltale heading “Sep-1984 22:29:54 RUNOFF ..SRCJNDXFMT.BLI; (12) 
7 775 4 ' : 
tf ? ; Find the first line in the entry. : 
1 4 SELECTONE .TYPES [.1] OF : 
1 779 «4 SET : 
\¢ 780 4 ; 
1 781 4 CENTRY_B1: : 
O18 138 eg 
O18 784 i Found the first Line in a multi-line entry. : 
ot f 5 Save its Line number and exit the Loop. : 
O19 ry LINE NUMBER = .1; : 
020 7 : ExI1TCOOP; ; 
021 7 4 END; 3 
0 ¢ 790 4 : 
0 791 4 CENTRY_W): ; 
024 P36 4 ' : 
025 793 4 ! Intermediate Line of a multi-line entry. : 
0 794 & ! Continue search by doing nothing. : 
0 795 4 ! F 
028 796 4 ; 3 
029 797 4 : 
030 798 4 COTHERWISE): $ 
031 799 4 ! 3 
O36 800 4 ' Entry was not a multi-line entry. Exit the Loop. : 
0 801 4 ! : 
3 : op 2 EXITLOOP; : 
0 804 4 TES; 3 
0 805 4 : 
038 B08 END; : 
039 Ht 3 
040 08 SAVE_LINE = TRUE; ; 
‘ed £98 END; ‘ 
063 11 COTHERWISE): 3 
044 \¢ ' 3 
bee tH Line should not be saved as a candidate for a telltale heading. ; 
ie : : 
ben B17 TES; : 
83 B19 IF .SAVE_LINE ; 
O36 9 THE : 
bez BEGIN : 
035 We found a Line which could be used as a telltale head. : 
037 BIND : 
58 RHEAD = RLINES (CO, 0,0,0,0] : SSTR_DESCRIPTOR (); . 
59 ? : 
4 3 
4 3 
4 : 
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-- Binary index formatter 


NDXFM 
SAVE "TELLTALE HEADING == Save telltale heading 


: i EN BEGIN 


The right tel tte . is null 
' generated. - $9's gase. th 
: bah tf only if th s th 
;* irst Line on the page was 


SAVE_ENTRY = FALSE; 


sma STs HANES 


LTYPE CO] = .TYPES C.LINE_NUM 
END; 


tr 


NAME WN OOD NAUSEA @OOONOUS 


' 
Save the Line as the right tell 


$STR_COPY (STRING = ee 5 f- Oe 
TARGET = RLINES 0,0, 


API ANAM BE BB PPP PPP LEE 


0 09 CD CD. Cd Cd C9 C0 09 C9 CD CD 
PPPS EE EEE 


OOFC 00000 


AX-11 Blis¢-32 V4.0-7 
RUNOFF .SRCJNDXFMT. BL: 


if sep-198 $8: 35: Hy 


onty after a right hand page has been 
e Line should be saved as the left 

e Ine sine on the page or if the 

a guide heading. 


gene 0,0,0,0), 


BERI; 


tale. 
NUMBER, 0,0,0,0], 


RTYPE (CO) = .TYPES Reset paveetl 
END; 


-EXTRN XSTSCOPY, STRSFAILURE 


SAVE _TELLTALE ag ra 
WORD™ ve R2,R3,R4,R5,R6,R7 


57 900000006 EF 9E 9002 MOVAB yerscopy. R7 ° 
56 000000006 EF 9E 000 MOVAB STRSFAILURE, R6 
55 000000006 EF 9€ 0010 MOVAB HEAD, R5 
54 00000000" EF 4 001 MOVAB SAVE_ENTRY 
52 C AC D Oot MOVL L_NUM, LINE_N NUMBER 
5 D4 000 CLRL § V ‘" N 
50 08 BC42 DO 00024 MOVL  @TYPESCLINE_NUMBER], RO 
0B 50 D1 00 9 CMPL RO, #1 
1 C BNEO 
01 : U CMPL INE_NUMBER, #1 
< BNE § 
4 1 BRB x} 
03 0 D1 0 1$ CMPL 80. #3 
5 if 0 BNE 
01 D1 0003A CMPL INE_NUMBER, #1 
20 1 0 D BNEO 
8 F TSTWw  RHEAD 
9 4 BNEQ 
64 1 0 4 MOVL #1, SAVE_ENTRY 
4 1 a6 BRB 
07 0 p1 48 2%: CMPL RO, #7 
iF 4B BNEQ 
50 52 D 4D MOVL L JNE NUMBER. I 
14 1 50 BRB 4 
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XFAT NOXFMT == Binary index formatter ip-ge Sep-1984 7 AX-11 Bliss-32 V4.0-74 P 

WO4-000 SAVE TELLTALE HEADING =~ Save telltale heading et 7 99: 38: Y RUNOFF .SRCJNDXFMT.BLI; wt vo 

HI 08 BC40 D § 3$ MOVL @TYPESCIJ, R1 3 

A BNEQ 4$ 2 

52 9 C MOVL LINE NUMBER : 

F BRB § : 

06 D 1 4$ CMPL Ri, #6 : 

1 BNEQ 6$ : 

3 F 5$ SOBGTR | 3 : 

D 6 $$ MOVL wi, Ss E ALINE : 

4 E C BLBC SAVE CINE 10$ : 

8 f TSTwW RHEA ADS 3 

1 } BNEQ i} : 

01 D 7 CMPL L INE _NUMBER. ra : 

03 (1 . 8 BEQL 3 

1E 64 €E 7 BLBC SAVE_ENTRY, 9$ : 

4 D4 00078 8$ CLRL SAVE_ENTRY : 

6 DD Baap PUSHL 3 

E 04 0007F CLRL (SP) é 

00000000G EF 9F 00081 PUSHAB $STRSTARGET 3 

BC42 7F 00087 PUSHAQ OL INESCLINE NUMBER] 3 

43 D4 00088 CLRL 4* 3 

67 0 fe 008D CALLS s, 3 

00000000G_ EF 08 BC42 D 0090 MOVL STYPESCL INE ‘NUMBER, LTYPE 3 

36 DD 00099 9$ PUSHL R 3 

3 D4 00098 CLRL -(SP) : 

5 bp 009D PUSHL R : 

04 BC42 F QOO9F PUSHAQ @LINESCLINE_NUMBER) é 

43 D4 000A3 CLRL -(SP i. 3 

67 05 FB OOOAS CALLS 45, 3 

00000000G_ EF 08 BC42 DO OO0A8 MOVL oT vPe string ‘ NUMBER], RTYPE 3 

04 00081 10$: RET : 


; Routine Size: 178 bytes, Routine Base: S$CODE$ + 0C51 


MMR 2 2 OOO sesse 


ec el el el ere ee el eel cel cel el cel cee el cel cel cl el el cel eel cel eel el el el cere cll cel cel eel cel cecal cl cel cell cel cecal cl al els cers cls acl call 


6 
NDXFMT == Binary index formatter Igege -1984 00:58:17 AX-11 Bliss-32 V4.0-74 P 1 
LAST_LINE == Process last tine in column ~30071 387 99:38 :U/ RUNOFF .SRCINDXFMT.BLI; age 43} 


ZSBTTL “LAST_LINE == Process Last Line in column’ 
ROUTINE LAST_LINE (I_LEN, PTR, E_LEN) : NOVALUE = 


FUNCTIONAL DESCRIPTION: 
This routine processes the last Line in the column. 


If the current Line is the beginning or middle of a subindex entry, 
any preceeding Lines which are also part of that subindex entry 

will be moved to the next column. If the Line preceeding the subindex 
entry is the end of a top level entry, the a level entry will also 
be moved. If the Line proceed ice the top level entry is part of a 


1 | 
1 s | 
1! : 4 
1: s | 
1} 3 | 
1! 5 4 
1: s 4 
;: Pa 
,: | 
ie : | 
1! Ha 
1 i 7 
H e | 
| : guide head, the guide head will also be moved. = 
: - | 
75 1! If the Line is part of a top Lovet entry, the entry will be moved if 2 | 
74=«1«S either it is not the Last Line in the entry or if the entry has a 
7 oe subindex entries. If the entry is to be moved and the Line preceeding a | 
4 ! the heading is part of a guide heading, the guide heading is also moved. 24 
. e | 
878 1! If the Line is part of a guide heading, the guide heading is moved g 
$44 : H to the next column. a 
. e | 
881 1! Lines are moved from the current column to the next by determining 3 
882 1! the number of Lines to be moved and by estat ten ing @ pointer to a 
883 1! the first Line to be moved. The Lines are then copied to the temporary zs 
884 1! column TLINES and the rest of the current column are filled with 3 4 
885 1! blank FILL Lines. The copied Lines are then inserted into the next 3 4 
Ht } output column. 24 
7 e | 
He ; ; rome PARAMETERS: : 4 
. «4 
890 1! I_LEN = Internal Line Length 3 4 
891 1! PTR - CHSPTR to Line 2 4 
53 : : E_LEN = External Length : | 
. «4 
B3e : IMPLICIT INPUTS: a 
. e 4 
896 1! ALLOWD - number of Lines allowed in column B4 
897 1! RTYPE - Line types if doing right column 3 4 
898 1! RLINES - right column Lines if one right column 3 
899 1! RCOUNT - number of Lines in column if doing right column 3 
900 1! LTYPE - Line types if doing left column 3 | 
901 1! LLINES - left column Lines if doing left column s 
§ 1! LCOUNT - number of Lines in left column 2 | 
903 1! LINE _TYPE - type of current Line 3 
338 ' CMDBCK - command Line information block i 
. e | 
9 1 ! IMPLICIT OUTPUTS: 2 
90 1 ! Pa 
908 1! None 2 | 
909 1! | 
910 1 ! ROUTINE VALUE: $ 
911 1 ! COMPLETION CODES: 3 | 
36 fj o | 
915 1! None a 
914 1! a4 


K 6 : 

XFMT NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss-32 V4.0-74 Page 92 ND 

v04-000 LAST_LINE == Process last tine in column ae 99338: RUNOFF .SRCJNDXFMT.BLI; . 135 vO: 

; 133 915 1 | SIDE EFFECTS: 3 | 
: 21 319 1 i During the execution of this rout ine, DOING.LAST is set to TRUE : 
3; 2151 318 1! to prosens INS_LINE from calling this routine again which would ‘ 
3 ; ¢ 4 ! cause an infinite loop of calls. : 
: 2154 9 : 1} TLINES AND TTYPE are used during the execution of this routine. : 
; 2155 9 ¢ 1} ~ other routine which may be called during the execution of ; 
3 : ° 4 7 : this routine must use some other area to store Lines and line types. ‘ 
: 9138 329 2 BEGIN : 
: 3160 3 ; LOCAL ; 
: 16¢ 9 : COUNT_PTR, ; 
; 216 930 YPE_P : REF VECTOR : 
> 2164 931 LINES PTR : REF BLOCKVECTOR C, STRSK_D_BLN, ; 
: 2165 S é coPy_CINES, : 
3; 2166 a FILL_LINES, : 
; + 24 Bre Ss : REF SSTR_DESCRIPTOR (); ‘ 
; 169 a DOING_LAST = TRUE; ! Tell INS_LINE we're processing last Line ; 
: 2171 938 COPY_LINES = 0; ' Number of Lines to copy to next column 3 
3 7 939 FILL_LINES = 0; ! Number of fill Lines to insert in this column 3 
3 rs Bet TYPE = .LINE_TYPE; ! Save current Line type : 
i 3129 4g IF _,LCOUNT EL ALLOWD ; 
; 177 944 BEGIN ! Filling right column ; 
3; 2178 945 COUNT_PTR = RCOUNT; ! Set up pointers to column variables ; 
3 2179 946 TYPE _PTR = RTYPE SF F 
: 2180 38 LINES_PTR = RLINES 6, 0,0,0,03; ; 
: 218 94 ELSE ; 
3 188 950 BEGIN ! Filling Left column : 
3 2184 951 COUNT_PTR = LCOUNT; ! Set up pointers... : 
3 2185 93¢ TYPE _PTR = LTYPE OF ; 
: 2186 933 LINES_PTR = LLINES 6, 0,0,0,02; : 
; 188 955 ; ; 
3: 2189 Bao CASE .TYPE FROM BKT_E TO CONT_HEAD OF 3 
3 139 3 SET : 
; 19¢ 385 CSUB_B. SUB_W): ; 
: 3193 960 BEGIN : 
: ib 306 Beginning or middle of subindex entry : 
; 199 964 DECR I FROM ..COUNT_PTR TO + DO ; 
: 198 5 4 IF (.TYPE_PTR C71) NEQ SUB_W) AND (.TYPE_PTR C.1) NEQ SUB_B) ; 
s at 4 ¢ THE : 
; 30 ee an EXITLOOP : 
; 0¢ 369 i BEGIN : 
3 970 4 COPY LINES = .COPY LINES + 1; ' Copy this Line to next column é 
: 2204 971 4 -COUNT_PTR = ..COURT_PTR - 1; ! One less Line in column : 


6 


NDOXFMT NDXFMT == Binary index formatter IBoge -1984 00:58:17 AxX-11 Bliss-32 V4.0-74 P 

yOu000 LAST_LINE == Process last Line in column ~3007 1383 99238: 44 RUNOFF .SRC NOXEMT BL 144 29° 1 v0 
; 2205 318 ; END; $ 
$ Be 97 3 
; 97 IF (.TYPE_PTR C..COUNT_PTR] EQL ENTRY_E) ; 
; 08 379 ; AND ~CMDBCK CNDX$V_CONTINUATION] “3 ; 
me BRE ecin : 
: ig 3f8 4 i Previous Line is the end of an entry and we are 3 
: 1? 381 2 doing continuation headings. Move the entry too. ‘ 
: 5915 982 4 COPY_LINES = .COPY_LINES ¢ 1; ! Copy this Line to next colum F 
: geig 348 é SCOURT_PTR = :.COUNT_PTR - 1: i One less Line in column 
: 18 989 4 DECR I FROM ..COUNT_PTR TO 1 DO : 
: 19 986 ; IF (.TYPE_PTR C71] NEQ ENTRY_W) AND (.TYPE_PTR C.1] NEQ ENTRY_B) : 
: 2221 988 4 EXITLOOP : 
: : 990 SE REGIN 
> 2226 991 § COPY LINES = .COPY_LINES + 1; : 
; 5 99 ; :COURT_PTR = }.COURT_PTR = 1; ; 
> 2227 994 4 ' ; 
3 2008 995 4 IF .TYPE_PTR C..COUNT_PTR] EQL GUIDE_FILL ; 
3 $§9 oe 4 THEN F 
; 0 BEGIN ! Move the guide heading too : 
3 $3) 998 COPY LINES = .COPY_LINES + gi 3 
; 35 999 -COURT_PTR = ..COUNT_PTR = 2; 3 
1: ee a! : 
> 2235 00 : : 
3 22 : 003 FILL LINES = .COPY_LINES + 1; : 
: 33 005 ; ’ 
: ip B89 CENTRY 8 TO ENTRY_E): : 
> 2241 008 : 
; 4g st An index entry : 
> 2264 011 & if (.TYPE NEQ ENTRY_E) : 
> 2265 O18 4 OR (.CMDBLK CNDX$V_CONTINUATION] AND (.LSTPTR CXESA_SUBX] NEQ 0)) F 
: $505 ee THEN GIN : 
; 48 15 4 ; 
; rs 18 2 Line is not the end of an entry : 
3 51 18 4 Doing continuation headings and have subindex entries. ; 
3 38 9 4 i Move it to next column. ; 
; 3 ; 4 DECR I FROM ..COUNT_PTR TO 1 DO ; 
; 36 ; ; LF (.TYPE_PTR C71] NEQ ENTRY_W) AND (.TYPE_PTR C.1)] NEQ ENTRY_B) : 
: 35 2 6 «gg EXE TLOOP 
> 2260 $ ; BEGIN ; 
> 2261 » COPY_LINES = .COPY_LINES ¢ 1; ; 


. S3 


sCOUNT_PTR = ..COUNT_PTR = 1; 
END; 


TES; 
IF .COPY_LINES NEQ 0 
THEN | 


Copy Lines to temp column 
INCR I FROM 1 TO .COPY_LINES DO 


STR_COPY (STRING. . INES, PTR C..COUNT_PTR + .1, 0,0,0,02, 
TARGET 0,0,03); 
IPE {.1) = THIPE pti te 0b Oe _PTR + .1); 


‘ 
; Copy Line we started with 
copy L aim : . COPY LINES +1; 


TTYPE LINES] = .TYPE; 
PADLIN TLeN, PTR, t LLEN, TLINES C.COPY_LINES, 0.0.0.0); 


XFMT NDXFMT == Binary index formatter 8 Sep-1984 7 AX-11 af $$°32 V4.0-74 P 4 
yOn-000 LAST_LINE == Process last Line in column “320-1984 99: 38: 4 HR RUNOFF .SRCJNDXFMT.BLI; age 435 
: 226 9 5 3 
ee ae ; 
: 2265 4 IF_.TYPE_PTR C..COUNT_PTR] EQL GUIDE_FILL ; 
3 96 4 THEN 3 
3; 226 BEGIN ! Move the guide heading too . 
3 o8 5 COPY LINES = ,COPY_LINES + gi 3 
; § 8 .COUNT_PTR = ..COURT_PTR = : 
5 71 0 3 4 F 
3 7 4 FILL_LINES = .COPY_LINES + 1; 
: de? 29 END; 
: re r END; 
; ds rk (GUIDE FILL): 
Bh Be ene 
3 Be$ Line following guide heading. 
> 2281 O48 copy LINES = 1; 
3 Hy 04 OURT Aes = ,.COUNT_PTR = 1; 
> 228 050 fitt. LINES = 2; 
3 2284 051 END; 
BE Bk 
: Seer a3 
3 4 bao } Start guide Reading in next column. 
; 91 058 FILL_LINES = 1; 
i 9293 060 C INRANGE}: 
3 3 bes Line is one of: BKT_E, FILL, SUB_E or CONT_HEAD. Just insert it. 
; Ose ' 
F 06 
3 068 
3 53 
3 4 0 
4 
; $38 
: 74 
3 P Ors 
: 7 
; : 
: 
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CGUIDE): 
i Guide headin 
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NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 Bliss-32 V4.0-74 
LAST_LINE == Process last tine in column Hat) 7 99 :30;54 RUNOFF ..SRCIJNDXFMT.BLI; 
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IF _ .FILL LINES NEQ 6 
THE 
BEGIN 
Insert FILL Lines to fill out rest of column 
LINE_TYPE = FILL; 
ince I FROM 1 TO .FILL LINES DO INS_LINE (4, .BLANKS, 4); 


IF .COPY_LINES NEQ 0 
THEN | 


Put copied Lines in new column 
INCR I FROM 1 TO .COPY_LINES DO 
TLINES C.1, 0,0,0,0); 


l 
— TYPE = -ThyPe (.{3; 
CINE (.S CSTRSH_LENGTH], .$ CSTRSA_POINTER], 0); 


DOING_LAST = FALSE; 
END; 
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! Not doing last Line any more 


OFFC 00000 LAST LINE; 


ORD Save 
5B 900000006 EF 9€ 0000 MOVAB TLINES, R11 
5a 00000000' EF 9€ 0000 OVAB LINE TYPE, R10 
08 AA 1 D 3 OVL #1, BOING LAST 
3 D 14 CLRL COPY_LINES 
04 1 CLRL ~=—s FALL LINES 
59 bh D0 1 MOVL LINE-TYPE, TYPE 
000000006 EF 000000006 FF p} i cwPL L COURT, ALLOWD 
G EF 9€ MOV RCOUNT, COUNT_PTR 
G EF 9€ F MOV RTYPE, TYPE PTR 
¢ FEE MOVAB RLINES, LINES_PTR 
5 1 D BRB 2 
G EF 9€ F 1$ MOVAB LCOUNT, COUNT_PTR 
G EF 9€ 5 MOVAB LTYPE, TYPE _PT 
G Ef E 00040 MOV LLINES LINES PTR 
01 9 CF 24 3 CASEL TYPE, #1, # 
0B at $ . WO ;- $,- 
6 6 6 -3$\- 
OBC 16 $- $.- 
138-83.- 
13$-3$;- 
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erate continuation heading if p-1 6 


ZSBITL "DO_CONTINUE == Generate continuation heading if necessary’ 
ROUTINE DO_CONTINUE (I_LEN, PTR, E_LEN) : NOVALUE 2 : 


i FUNCTIONAL DESCRIPTION: 


! 
This routine is called to generate a continuation heading if necessary 


The input line is copied to beet yg te etage it may reside in 
RNO_LINE which is used to build the continuation head ng. Note 
that the input Line cannot be copied to TLINES since this routine 
may be cotter during the execution of LAST_LINE which uses TLINES 
to temporarily store one to many Lines of fext. 


The continuation heading is generated by setting LINE_TYPE to 


CONT_HEAD and by scanning the subindex list stack from bottom 
to top, calling FORMAT_ENTRY for each level. 


FORMAL PARAMETERS: 
I_LEN = Internal Length of Line being processed 
PTR - CHSPTR to Line 
E.LEN = External length of Line being processed 
IMPLICIT INPUTS: 
CMDBLK = Command Line information block 
LSTSTK = Subindex List stack 
INDLVL = Subindex level 
LINE_TYPE = Type of current Line 
IMPLICIT OUTPUTS: 
None 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 
Sets CMDBLK CNDX$V_CONTINUATION]) to false while processing 
the input Line. This prevents INS LINE from calling the routine 
again which would cause an infinite Loop. 


Sets LINE_TYPE to CONT_HEAD so that FORMAT_ENTRY will generate 
a continuation heading instead of normal index entries. 


LINE : VECTOR CCHSALLOCATION(1200)), 


CMDBLK CNDX$V_CONTINUATION] = FALSE; ! Prevent infinite loop of calls 


midis ne 


OFFC 00000 DO_CONTINUE: 
-WORD 


7 
NDXFMT NDXFMT == Binary index formatter ig-se -1984 00:58:17 AX-11 Bliss- 4.0-74 
v04-000 DO_CONTINUE == benerate con tnuatton heading if ~3e07 138% 99238: u7 RUNOFF SRE NOAFMT OU te Page 42) 
: $t0s iF ; 
: 788 176 Copy input parameters and input Line 
; 2408 174 INT = .1_LEN; 
: 2409 175 EXT = .E_LEN; 
: 2410 176 TYP = .LINE TYPE; 
> 2411 17 CHSMOVE (.INT, .PTR, CHSPTR (LINE)); 
; ale 178 CLR_RNO_LINE (); 
: 2414 180 IF (.TYP EQL SUB_B) ! First Line of subindex entr 
: 5415 181 OR (: TYP EQL SUBN~E) i Last Line of subindex entry” 
3 ht 1 § THEN ! NOTE: can't get SUB_W as first 
3; 241 1 BEGIN ! Line in column. 
2 ets at 
3 zuet 136 SAV_INDLVL; 
3: 246 § 188 PTR = .LSTPTR; ' Save current entry pointer 
; 24 189 SAV a = .INDLVL; ! Save current index levei 
: $ 3 139 LSTSTK C.INDLVLJ = 0; ! Make sure top of stack is zero 
; $e 6 136 INCR_ I FROM 0 TO .SAV_INDLVL - 1 DO 
: 2427 193 4 BEGIN ! Generate continuation heading 
3; 2428 194 4 INDLVL = .I; 
: 2429 195 4 LSTPTR = .LSTSTK C.1); 
: 2450 136 4 LINE_TYPE = CONT_HEAD; 
3 rt? 197 4 FORMAT_ENTRY (); 
$038 199 —_ 
> 2434 200 DLVL = .SAV_INDLVL; ' Restore current index Level 
> 2435 01 LSTPTR = .PTR; ! and entry pointer 
$039 03 
FY sees 04 LINE_TYPE = .TYP; 
3; 2439 05 INS_CINE (.INT, CHSPTR (LINE), EXT); ! Insert original Line 
3 2440 $06 2 CMDBLK CNDX$V_CONTINUATION) = TRUE; ! Reset continuation switch 
3 2441 207 1 END; 
Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 3 3114 
58 90000006 EF 9E 00002 MOVAB INDLVL, R14 ; 
A 00000000G EF 9E 00009 MOVAB LSTPTR, R10 : 
2 seat * €F 9€E 319 MOVAB LINE TYPE, R9 : 
E FB cf 3 1 Vv -1200(SP), SP 3 
00000000G_ EF & F r) 1¢ BICB #64, CMDBLK : 199 
7 04 AC D 4 MOVL I_LEN, INT : 3174 
8 C ag 0 028 MOVL E_LEN, EXT ; 3175 
6 $ C MOVL_ LINE_fYPE, TYP ; 176 
6E 08 BC 7 F MOVC3) INT, @PTR, LINE 3 Si? 
FB4 C9 FB44 «C9 «OE MOVAB RNO_LINE, LINE POINTER ; 3178 
Fe AQ 7 8 CLRQ.  INT“LINE_LENGTA ; 
FC AJ D4 E CLRL TMS_LINE_LENGTH : 
| 


SE 


Be Bee Be Se OH Se Be Se Se Se Se Se SH Se Se Se Fe Ge Ge Se Ge Ge Se Se Se Se Ge Se Se Se ae Se Se Se SE Ge Se Se Se Se Se Se Se Se Se Se Se Se ee ese Se Ve se tease 
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NOXFMT NDXFMT == Binary index formatt 4 AX-11 Bliss-32 V4.0-7 Page 1 Y 
VOe~000 DO_CONTINUE == Generate cont inuation heading if Ife sen-1984 98: 38: Uf RUNOFF .SRCJNDXFMT. BLI: ies 183 vou 
08 41 CMPL ~=séCT''P,s #8 : 3180 : 
OA H ts rr Cot ite, #10 : 3181 
$ } rk BNEQ 4$ : : 
4 6A D 48 1$ MOVL LSTPTR, PTR : 3188 ; 
a a eae fe 
QOO00000GEF4O D4 4 CLRL tstst Avi : 199 : 
52 : cE B MNEGL #1, : 319 ; 
1 BRB 3$° : : 
6B 52 D 60 2$ MOVL = Dean + 3194 
6A O0000000GEF42 D 9 MOVL  LSTSTKEIJ, LSTPTR : 3195 
9 OB D MOVL #11, LINE TYP : 196 
FSDD OCF F 06 CALLS #0, FORMAT_ENTRY : 319 
2 F2 00073 3$ AOBLSS SAV_INDLVL> I, 2$ ; 198 
68 DO 0007 MOVL SAVZINDLVL, INDLVL ; 
6A 4 D6 007A MOVL PTR? LSTPTR + 3201 
69 : DO 0007D 4$: MOVL ‘TYP, LINE_TYPE + 3204 
58 DD 00080 PUSHL EXT : 3205 
04 AE OF 0082 PUSHAB LINE ; 
57 DD 0008 PUSHL INT ; 
CF 03 EB 0087 CALLS #3, INS LINE 
000000006 EF 40 8F 88 0008C BISB2 #64, CMDBBL > 3206 
04 00094 ET 3207 


; Routine Size: 149 bytes, Routine Base: S$CODES + OEA7 


7 
XFMT NDXFMT == Binary index formatter iB-se 1984 00:58:17 AX=11 Bliss-32 V4.0-74 
¥00~000 LL_LINE == Format an output Line 7350-1382 99 °30:54 RUNOFF. RCINDXFMT.BLI: 


: 2446 1] ZSBTTL ‘FILL_LINE == Format an our put Line’ 

FH ice ! ROUTINE FILL_LINE (I_LLEN, I_PTR, INDENT, MAX_EXT, BOLD, UND, L.BLANK) : NOVALUE = 
: 264 161i 

3 rel : ! : FUNCTIONAL DESCRIPTION: 

: 44 14 #613 This routine copies and formats the string specified by 
; 2450 2 37 1_LEN ong I_PTR into RNO_LINE. If the external Length 

: r 1 18 } of the Line exceeds MAX_EXT, the Line is forced out. 

; re 18 1 | FORMAL PARAMETERS: 

3; 2454 1 1! 

; 43s Bs I_LEN = Length of input string 

3; 26 $ :i es I PTR = Pointer to input strin 

3: 245 ; 1! INDENT = Number of spaces to indent Line 

; t28 1} MAX_EXT = Maximum external Line Length allowed. 

3 24 41! BOLB - TRUE if string is to be bolded 

: 2460 > as UND - TRUE if string is to be underlined 

3 ree 8 ! L_BLANK = TRUE if a blank should be inserted before the string 
: 246 1 i IMPLICIT INPUTS: 

3 24646 1! 

: 2465 0 1! LINE POINTER - pointer to next character in output Line 
; 2466 2 EXT_CINE_LENGTH = external Line Lengt 

3: 2467 § 1: INT_LINE_LENGTH = internal Line Length 

3 2468 1! CMDBLK - command Line information block 

: 2469 4 1! TMSSTD = standard character size for TMS 

; 2470 2 y TMS _LINE_LENGTH = Length of Line in TMS relative units 
; o7) $ ! } CHRSIZ - TMS character size vector 

: 47s 38 { IMPLICIT OUTPUTS: 

: 2475 40 1! LINE_POINTER = pointer to next character in output Line 
3 247 41 1! EXT_CINE_LENGTH = external Line Lengt 

3; 247 4g 1! INT_LINE_LENGTH = internal Line Length 

; rt 4 $7 ' TMS_LINE_LENGTH = Length of Line in TMS relative units 
: 26 45 1 | ROUTINE VALUE: 

H : 1 rg ! : COMPLETION CODES: 

> 26 ¢ 48 1! None 

3: 246 49 1! 

HY vet 39 : SIDE EFFECTS: 

: rh] 3 1 None 

3 rt +3 535 1 !-- 

: 24689 54 BEGIN 

: 494 33 LOCAL ORD POINTER 

> 249 3§ RNO_QORD : VECTOR CCHSALLOCATION(1200)], 

3; 249 28 INT_WORD_LENGTH, 

: 2496 5 EXT_WORD_LENGTH, 

; red rs mrt 

+ 249 6¢ HYPRENATE, 

3: 2498 6 HYPH 

> 2499 64 INSERT_BLANK, 


2s 


Se 
re 


H 7 
NDXFMT == Binary index formatter 16-Sep-1984 00:58:17 AX-11 iss- 4.0-74 
FILL_LINE == Format an output Line Het 99:35:44 RUNOFF’ SRE NBXFMT OUI: Page 193 


5 CHAR_COUNT, | 
TEXT_PTR; 
3 If .CMDBLK CNDXSH_FORMAT] EGL DSR 
8 THEN | 

RUNOFF output. 
MAX_LEN = .MAX_EXT 

4 

4 

4 

4 

4 

4 

4 

4 

5 

4 

4 

4 


PUSVSTSVSISISISIS 
MEN 


w Wi —O DO NOUN OOOO MEW O Dee 


ELSE 
; For TMS11 or TEX output, we don't count characters. 
i 


The Line Length is expressed in units and each character is 
assigned a length in units. 


i The Line Length is computed as follows: 

} (Line length in characters - safety margin in characters) 
* average character size 
i 


MEW OVOONIOUE WN Oo 


! The safety margin is present to allow for slightly larger 
} italicized or bolded characters. 


MAX_LEN = (.MAX_EXT = TMS_SAFETY_MARGIN) * TMSSTD; 


090909 C9 09090908 INI S 


sOCo00 
Owe 


CHAR_COUNT = .I_LEN; 
TEXT-PTR = .1_PTR; 


HYPH = FALSE; 
INSERT_BLANK = .L_BLANK; 


WHILE .CHAR_COUNT GTR 0 DO 
BEGIN 


WIA APPIN IPOPUPONUND 2 2 2 OO St Ow 
oo 
—_ 


sb dbedbedbedbebbedbedbubb bb Ab Abisb Ab dh Ah Ab Ah AL AL AD AD AL AD AL Ab Ah Ab Al 


POPOPONSPONPONSNNoPoNoPofPonofny 
II 
SERRE 
Mew 
SRLS AP ANS 


SSS SSSR 
ONOUE 


CLR_RNO_WORD (); ! Initialize word variables 
nl 

Get next word. 

L_PTR = .TEXT_PTR; 


L-LEN = .CHAR~COUNT; 
IRCR I FROM 1~TO .CHAR_COUNT DO 
BEGIN 


SHUS 


MIPOMOPOPOPoPoPoPoPoPorfonoronet 


WANA AIA AI AAAI PIPPIN POPOPUNPINPINPOPONONYD 


Mv 
or 
-o 


Skip leading whitespace if any 
LOCAL 
CH; 


L_PTR) 
"OR (.CH EQL TAB) 
N-1 ! One less input character 


= CHSRCHAR_A ( 
50K EQ. 2C° 


L_LEN = .L_LE 
ELSE 


—OOONOULS WN oO 


NOR oo 


MT == Binary index formatter 1b-se0-1984 90:38:17 AX-11 Bliss-32 V4.0=74 or 


+ he NDX 
v04-000 FILL_LINE == Format an output Line -Sep-1 4 RUNOFF ..SRCJNDXFMT.BLI 


c7 


BEGIN 
! End of leading whitespace 


ww 
woo~ 


: 

; 2560 5 

: 256 § | L_PTR = CHSPLUS (.L_PTR, =1); ! Back up to account for overshoot 
; 6 ERITLOOP; 

3; 256 4 END; 

; re) $ END; 

: o8 1 TEXT_PTR = .L_PTR; ! Point past leading whitespace 
: 256 § CHAR_COUNT = “L_LEN; ! Update length of string 

; é INCR I FROM 1 TO .CHAR_COUNT DO 

3 0 5 4 BEGIN 

3 71 § 4 ' 

3 276 2 Now copy the word to the word buffer 

: a7 5 4 LOCAL 

Be He bn 

; 327 4g 4 CH = CHSRCHAR_A (L_PTR); 

; 379 44 4 IF cH EQL RINTES 

: 381 sf ; BEGIN 

: 388 48 3 RUNOFF escape sequence 

: 2585 50 § LOCAL 

~ 288 3] OPERAND; 

: 2588 3g CH = CHSRCHAR_A (L_PTR); ' Get function 

: 2589 354 5 OPERAND = CHSRCHAR_A (L_PTR);  ! And the operand 

: 2590 55 5 l= .1] + 2; ! Update number of characters processed 
; 33) 2$ L_LEN = .L_LEN = 3; ! Update remaining character count 
; 298 58 SELECTONE .CH OF 

: 96 61 (xc'B'): ! Bold 

; rede 306 NQCHAR_NC (2C'®'); 

: 2599 37 C%C'O"): ! Overscrike 

3; 2600 $3 6 BEGIN 

: 2601 06 6 NQCHAR_NC (.OPERAND); 

; rey 6 NQCHAR_NC (2C'S"); 

3 ret re END; 

+ 2605 0 CzC'u'): ! Underline 

: 3606 4 NOCHAR_NC (XC'8"); 

: 2608 5g CXC'N'): 

3; 2609 74 IF .OPERAND EQL %C‘-' 

3: 2610 75 THEN 

: 2611 76 6 BEGIN ! Hyphenate 

3 ols 7 ° HYPHENATE = TRUE; 

3; 261 78 EXITLOOP; 
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Any ee epee nd Nall eh ete Nara 4 


PARA AAA AA AA AA AAA AAA AA AAS 


Oe 


PAO 


RAMADAN ADE be ee ee 
DONO VUELWN “QO VOONOULSWN OO 


SeSSseses 


Be Se Se Se Se Fe Se Ge Se Fe Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Fe Ge Fe Fe Ge Se Ge Ge Ge Ge Ge Ge Hs Ge FF Se Se Se Se Se Se Hy Fe Se Se Oe Se Se Se Se Se Se Se Se Sees 


Ss 


oo 


COCOCDCDCSCDCDCDCDCO~y ff 
DONOULWN—O”O fr 


oooovono 
UFWwrN—oO 
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408 


Fe oy oy oy eT ot ot ot ot at he eee 
MEW OC OONOUE WIN $ O OONOUS WN OO 


WWII AIA OPOPOPONONONPON SO 


FMT == Binar 


PTR = .L_PTR; i 
COUNT = “L_LEN; ! Update length of input string 


SAAB LD. LID. DE DEDEDE SDS IDS TIO PITTI IIOP UII SE UII 


7 
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-Sep- 4 RUNOFF ..SRCJNDXFMT.BLI 
END; 
_— TES; 
BEGIN 
Not a RUNOFF escape sequence, process character 
L.LEN = .L_LEN = 1; ! One less character 
IF (.CH EQL %C* *) OR (.CH EQL TAB) 
EXITLOOP; ! Whitespace - end of word 


i Bold and underline character if requested 


F .BOLD THEN NQCHAR_NC (X%C'#'); 
F LUND THEN NQCHARTNC (%C'8"); 


F (.CH LSS 2C* *) OR (.CH GTR %0°176") 
HEN 


Control character 

IF_.CH NEQ %0'10° 
QCHAR_C (.CH) ! Normal control character 
BACKSPACE (.CH) ! Process backspace 


ee tebe 


ELSE | 
: Not a control character 

if (.CH EQL 2C'8") 

(.CH EQL 2C'#') 
OR (.CH EQL 2C'_*) 
R (.CH EQL 2C°.*) 
OR (.CH EQL %C°R") 
QCHAR_C (.CH) ! RUNOFF flag so quote it 


NQCHAR_C (.CH); ! Ordinary character 


ELS 


' Point to next character 


Compute space needed if word is to be added to current Line. 
if .CMDBLK CNDXSH_FORMAT] EQL DSR 
BEGIN 


| 


CONAN 
OOWONOUNLS WN 3 


Co0D 
wr— 


PAA AAAAOAAAAOO 


3 


SNS NNN 


NONOPONONONONNN 2 3 


NOUEWN “SO OONOUS Wit 
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" -- Binary index formatter 


NE == Format 


ELSE 


If . 


. Ff 
16-Sep-1984 00:58:17 AX-11 Bliss-32 V4.0-74 
eet 1 99:38 :t/ YRUNOF FS RCJNDXFMT.BLI; 
' For RUNOFF, cote) = Line Lengsh + word length 

+ 1 for comma in case this is the last werd in the entry 


+ 1 if previous word was nct terminated by a hyphenate sequence 
+ 1 if current word terminated with a hyphenate’ sequence . 


an output Line 


f" cmemmanse 


wLEN = .EXT_LINE_ LENGTH + .EXT_WORD_LENGTH + 1 
na + (IF NOT .HYPH THEN 1 ELSE~O) +"(IF .HYPHENATE THEN 1 ELSE 0); 
BEGIN 


For TMS and TEX, total length = Line pange® + word Length 

Length of blank in case this is the last word in the entry 
Length of blank if previous word was not terminated by a hyphenate sequence 
length of hyphen if current word terminated with a hyphenate sequence 


= ,TMS_LINE_LENGTH + .TMS WORD LENGTH + .CHRSIZ C%C' "J 
(IF NOT .HYPH THEN .CHRSIZ C%C* '] ELSE 0) 
(IF .HYPHENATE THEN .CHRSIZ L%C'=") ELSE 0); 


L_LEN GTR .MAX_LEN 


THEN 


BEGIN 
Word will not fit on Line 
if .HYPH 
THEN 
BEGIN 


i Previous word terminated with a hyphenate sequence. 
Add trailing hyphen. 


CHSWCHAR_A (X%C'=", LINE_POINTER) 

INT_LINE-LENGTH = .INT_CINE_LENGTH + 1; 

EXTLINE-LENGTH = .EXT"LINE-LENGTH + 1; 
~TMS"LINE-LENGTH + .CHRSIZ (%C'-"); 


TMS_LINE_LENGTH = 
END; 


INS_LINE (.INT_LINE_LENGTH, CHSPTR (RNO_LINE), .EXT_LINE_LENGTH); 
IF .LINE_TYPE NEQ CONT_HEAD THEN LINE_TYPE = (IF .INDLVL EQL 0 THEN ENTRY_W ELSE SUB_W); 


1 
: Indent new Line 


INDENT_LINE (.INDENT + 4); 


1 
Verify word will fit on new Line 


if .CMDBLK CNDXSH_FORMAT) EQL DSR 
BEGIN 
i For RUNOFF... 
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7 
NOXFMT NOXFMT == Binary index formatter Igege -1984 00:58:17 AX-11 Bliss-32 V4.0-74 Page 106 y 
v04-000 FILL_LINE == Format an output Line Het 39530544 RUNOFF ..SRC NOKFMT-BL ied 7 138 vb. 
: 27 493 ! 3 
3 27 : 494 LLLEN = .EXT_LINE_LENGTH + .EXT WORD LENGTH +1 ; 
; @? 495 + (IF .HYPHENATE THEN 1 ELSE 0); : 
3 2731 436 END ; 
: ev ¢ 497 4 ELSE ; 
oe Bs — : 
; 039 3 | For TMS and TEX... ; 
: $89 $306 LLLEN = .TMS LINE LENGTH + .TMS WORD LENGTH ¢ .CHRSIZ CXC* J : 
3 2738 50 + (IF .HYPHENATE THEN .CHRSTZ C2C'='J) ELSE 0); ‘ 
$06 fia 
> 2741 206 4 IF .L_LEN GTR .MAX_LEN ; 
gee BM a3 : 
> 2744 L 3509 4 XIF XBLISS (BLISS32) 
3 rt? 319 ? THEN ! Signal errors in BLISS32 
: re 2\§ ? SIGNAL (INDEXS$_DOESNTFIT, 2, .INT_WORD_LENGTH, CHSPTR (RNO_WORD)); 
: 149 ; 314 4 XLSE ! Use $XPO_PUT_MSG otherwise 
: 2751 U 216 4 $XPO_PUT_MSG (SEVERITY = WARNING, 
; 38 u 3517 4 STRING = $STR_CONCAT (‘the word '*', (.INT_WORD_LENGTH, CHSPTR (RNO_WORD)), 
3; 275 U 218 4 "'' will not fit at current indentation level')); 
3 2754 U 3519 4 
3 2755 520 4 XFI 
: Fa : . é END 
: 2758 © 5 4 ELSE 
ie HB . 
; 761 3 6 4 Word will fit on Line. 
: 5768 528 4 IF CHSNEQ (1, .BLANKS, .INT_LINE_LENGTH, CHSPTR (RNO_LINE), %C* ') 
3 2764 529 5 AND (NOT .HYPH) 
3 2765 530 4 AND .INSERT_BLANK 
: 766 531 4 THEN 
: ree : § BEGIN 
> 2769 534 i Line is non-blank, previous word did not terminate 
: rey 535 with a hyphenate sequence, and we are supposed to insert a blank. 
; uy ; ; ! Add a blank to the Line before adding the word. 
: 277% 335 CHSWCHAR_A (ZC° ', LINE POINTER); 
3 2775 540 INT_LINE-LENGTH = .INT_CINE_LENGTH + 1; 
> 277 341 EXTLINE_LENGTH = .EXT“LINE-LENGTH + 1; 
: 277 4g TMS-LINE_LENGTH = .TMS"LINE-LENGTH + .CHRSIZ CXC’ ‘J; 
: 2778 543 4 END; 
3 2779 544 END; 
: 7 1 ae ' 
: , ¥ 509 Append word to Line 
: 27 328 CHSMOVE (.INT_WORD_LENGTH, CHSPTR (RNO_WORD), .LINE_POINTER); 


Sete Ge ee Fee ee te eee 
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MT == Binary index formatter 1 -5e0-1984 90:38:17 


LINE == Format an output Line -Sep-1 RUNOFF ..SRCINDXFMT.BLI; 
LINE 1? WH . . rior us (. LINE POINTER, it HORD yoRe 4 aed 
INT_CINE ~ INT LINE LENGTH + .IN 
EXT-LI NES +t NETH »EXT-LINE_LENGTH + .EXT— D“L NOTH: 
TMS_LINE-L NGTH = = .TMS_LINE-LENGTH + ,TMS_ “WORD “LENGTH: 
HYPH = ,HYPHENATE; ! Save hyphenation status of current word 
ANSERT BLANK = TRUE; 


OFFC 00000 FILLLINE: 


5E £840 
01 000000006 8 0 CMPW MDBLK+4, #1 
é : BNEQ t 
6E 10 MOVL § MAX_EXT, MAX_LEN 


9 : MOVAB =1216(SP), 


X_EXT, RO 
a. MAX LEN 


FPRoOOoromena 


ny = 
bad 
224O 
$F 4 
.. 

m 

2 

>. 


a 56 ne 
9 4 


E 
& 92 b0 
C D 
gH Sei 
, 2 
C D0 000 3 : VL HAR. COUNT 
04 AE 8 AC OD 88 MOVL i apar® TEXT_PTR 
56 D4 C CLRL 
08 AE 1¢ AC D 00 MOVL LaLa aaa BLANK 
59 D 00 3$: TSTL CRAR 
oT be 900 RET 
57 10 AF oe 90 8 4$: MOVAB RNO_WORD, WORD POINTER 
5 g C CLRL INT _WORD_LEN NGTA 
SA C 00 CLRQ TMS WORD- LENGTH 
OC AE D4 $ 4 CLRL HYPRENATE 
51 04 A 1) 04 MOVL TEXT_PTR, L_PTR 
53 3 D 4 MOVL CHAR, COUNT, | LEN 
79 97 dooce geass 
36 §) oA of 5$: MOVZBL (L_PTR)+, CH 
. § 93 boos ori ae 
000000006 8F é 6 cHPL H, #TAB 
3 Df F 6$: DECL gt tN 
] ff 7$: 44 PTR 
50 9 F gs: AOBLEQ CHAR_COUNT 54 
04 AE } D $: MOVL L_PTR, TEXf_ Ste 
5 i i) Ff poxt t “LEN. CHAR— COUNT 
00E7 3 74 108 BRW 7$ 
50 1 9a 00077 1 MOVZBL (L_PTR)+ 
000000006 &F p} 7A CMPL H> printes” 
8 BNE 
50 9A MOVZBL (L_PTR)+, CH 


AX-11 Bliss-32 V4.0-74 


ORD Save R2,R3, Re oR5,R6,R7,RE,RI,R10,R11 


=32 V4.0-74 Page 198 

“1 1 YAN BLiss=32_ ve. 0-74 at, 
NOXFMT NDXFMT == Binary index he nt Sag rT “340-198 99: 38: i? RUNOFF.SRCINDXFMT .BLI : 
voe-000 FILL_LINE == Format an outpu a WOV7BL (L_PTR)+, OPERAND : ‘ 
| C2 d008¢ suBt ci eG : 
epee H 38 ROVE He, (WORD_POINTER) ; 
< 2 eee ee 3 7 
aes i A ROVE OPERAN AND, (WORD POINTER) + ; 
™ A Ce eet eee 
? AB MOVB 30° : 
Bo} $8885 use, ERB fae ; 7 
nepsed be BEE Si. com.romen ; : 
67 BRB 228 
A 11 000BC one 
0 BE 148:  CMPL CH 
egy e Se a a ae : : 
a Oy Of gopee BOVE #1» HYPHENATE 
cM 0091 BT 00000 158: BRU 28 ; } 
38 D7 00003 168: DEC. LLEN. 
” rs 13 OF et eS nae ; 
000000006 8F HS 13 of BE dL se. 17 : ; 
05 4 AC : #25. (WORD POINTER) + 
87 gh : 3 f? ts INcL INT “WORD _LENGTH 
18 AC 6 EC 1 RD POINTER) + : i 
oA Be ean : : 
F5 188: — CMPL 
nc 3 i of CHL CH, #126 : 
an i BSB ioe, BE fil : : 
08 1 : BEQL )+ e : 
87 5F bi iF 1 nove rut usbOre POINTER ; : 
0 96 00108 nove «tH ' (WORD POINTER) ; 
67 oe 8 ii} Apote sathitlat TRS _WORD_LENGTH 
87 FRR Oe Ole, INCE. INT/MORDTPENGTN : 
8 88 Bal MOVE CH, "(WORD_POINTER) : 
67 : DECL EXT _WORD_CENGTH 
3 BRB ; : 
i A 385: CMPL cK * 438 : 
26 } 9 12D BEQL 42 : : 
2A ao OT Spit Seat Sug ; 
1 ¢ CMPL fie #95 : : 

0000005F 8F bn 8s forks BEAL 


vOa~000 


FFI3 


$4 


50 


51 


53 


04 


00000000" 


00000000" 


F997 


2 
25 
87 
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NDXFMT == Binary index formatter 
FILL_LINE == Format an output Line 
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SF 


7 
HH 00000000GF F 


WMOvr OVvnro 
—"@ =—fPwor— 


mou 
—NOo 


6B 


000000006 
00000000" 


0000000" 


MOMMMOMMMMrIMNS OVIVIMNOE PF VMNOO VO MMWL NOOO PP VIMO OUT PIM MNIUANnVIU & VIWIODOWUOW 
NAN ANOANANAROAWWWOCMOMNMINNG LOFT LO Mh 2 SF NAIA AWW ODNDOOCOMAOMNO 
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RVI COOL IMO > OOUDNVTVIOU 


RESO eS SR ot De FS OOO OO O09 000909 III PAA PMI 
OCOF £OS SF VNVPVIMO SUN MO SVMVOI SOMO SSESS onvuT 


ONO OVTOCIFTTF OMW 909 “FMF -9FMO9F $09 -9FMO9 -9O Me - DoT oO V9 90OC0 oO—"0 99 
DS MI OOOO OOO FH F HOO F&F ("O00 0 2 SM FO 00 F&F 20 O09 "MOO ARAOCOOC ON 
SOQooooooqooooooooooooooooooooooooooooooooooOooOoOoOoOoOoOoOoOOOOOoOO 
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ww 
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ws 
PM 


408: 


PAG 


1986 29:25:54 


AX=11 Bliss-32 V4.0-74 
RUNOFF .SRCJNDXFMT.BLI; 


» (WORD POINTER) + 


WORD |. 
(WORD POINTER) 

RSIZCCRI TMS_WORD_LENGTH 
Q 


RD_ LENGTH 


“i, 1, 118 
PTR, TEXf_PTR 

LOLEN. .CHAR_COUNT 
MDBLK+4, #1 


EXT_LINE LENGTH, EXT_WORD_LENGTH, RO 
R4 98 


R1)CROJ, L_LEN 

INE LENGTH, TMS_WORD_LENGTH, R1 
bs R1 
4$ 

0), R2 


5 
( 


AW TDD DB SO 1 eS wD 
ax 


*Pmov: ACH CDMS 
- 


SONO<Mrmvrvflvr zon — 


Ri, L_LEN 
‘ MAX_LEN 


Wir Dw 
ow 
_ 


HYPH, 40$ 
@LINE_POINTER 
€ POINT 


Page 109 
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3417 
3418 
3420 
3422 


3454 


3457 


463 
470 


He 
47 
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3476 


3478 


2s 


; Routine Size: 801 bytes, Routine Base: SCODES + OF3C 


) 
11 2) 
8 ; . =32 V4.0-74 Page V 
se Hats i Ot He NDXFMT .BLI; (15 
tter 4 CRU 
FMT NDXFMT == Binary index roraes .& -Sep-1984 22:29: ; ; 
yOu-000 FILL_LINE == Format an outpu en eens ay 4s 
TL INDLVL : ; 
000000006 FF D3 00226 gheo 18 ; 
ie ; 418: MOVL it RO ; 
i Hr ae ict: at, three. onl | 
yee AC 6 ¢ . Paamact CALLS #1, INDENT LINE : 3488 : 
00000006v ft 1 f 4 CMPW = CMOBLK+4, Sins 
on ee 28 ADDLS EXT LINE LENGTH, EXT_WORD_LENGTH, RO + 3498 
58 00000000" EF C¢ ‘ BLBC HYPRENATE, 44$ 
5 oe ‘i 8 5, ORB, 438 : : 
D4 00265 448: 1, LLLEN seas 
:  MOVAB 1(R1)CROJ, L_ 
w Hog: ‘ ADDL3. TMS_LINE LENGTH, TMS_WORD_LENGTH, RI Tosata : 
56 EF 60 bose Oe 
an 30 Soo0s0006 EF DO oosre ROVE, CHRSIZ. RO. p= 
510080 C0 c9 O56 BLC HYBHENATE, 478 
or a BR Pesala a et : : 
D4 00288 47$: = CLAL , LLLEN > 3506 ; 
51 29 C1 0 8D 48S: AboLs Pram MAR LEN ; 
” ée 53 DI 00291 498: CHL LL ; 3512 
At OF 0059 PUSHAB RNO_WORD ; 
38 bb 00899 PUSHL INT WORD, 
DD 00298 X$_DOESNTFIT : ; 
000000006 oF 44 09 8 CALLS #4, LIBSSIGNAL 2 Sz 
eames: Ses we iT OO2AA CHPCS #1. @BLANKS, #32, INT_LINE_LENGTH, RNO_LIN ; 
01 2D OOZAC 50S: CMP . ; 
EF 2008 FF qoooo00' EF > 00989 BEQL 518 ; 3529 
2 BB): 
3 (8 a5 55 bose ROVE rae acinewpoinien ‘one ; 
aonn000 FF gooooo00: EF be onste INCL TNY-CINE LENGTH ; 3541 
seit O, EF be B0ens INCL EXTLINE LENGTH : 3542 : 
uk 
ee sii EO 0 OOsE? ADDL izes LENGTH. RNO'WORD, @LINE_POINTER 3299 ; 
00000009" EF 58 QOSFO S18: Rove INT-WORD-LENGTH, LINE POL : 3551 
eer 0000000" EF 3 ADDED EXTTWORDILENGTH, EXT-LINE-LENGTH : 4 ; 
$a : EF B ¢ ADDL TS“WORD-LENGTH. TMSTLINE “LENGTH : 3955 : 
YPH ; : 
00000000" ¢F a 09 1 ROVL = HYPRENATE® HYP : $288 ; 
08 Ae O} ! Bree : 3859 
one: : 
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NDXFMT NDXFMT == Binary index formatter ig-se -1984 00:58:17 AX-11 Bliss-32 V4.0-74 
v04-000 INDENT _LINE == {ndent new Line ~3ep-19 4 99238: U7 RUNOFF .SRCJNDXFMT.BLI; 


: 279 $9 1 ZSBTTL_ “INDENT_LINE == Indent new Line’ 

; ede ? : ROUTINE INDENT_LINE (INDENT) : NOVALUE = 

: 2799 63 1! 

: 4 ee ! FUNCTIONAL DESCRIPTION: 

: 280 ¢ 1! This routine clears out RNO_LINE and fills it with the number 

; ti of : } of blanks specified by INDERT. 

: 805 269 | FORMAL PARAMETERS: 

; 807 sre ! } INDENT = Number of blanks to indent Line 

: 2809 7§ i IMPLICIT INPUTS: 

: 2810 574 1! 

; 2811 575 1! CMDBLK = Command Line information block 

$ seig 576 1! TMSSTD - Standard TMS character size 

; 281 $77 1! MSPACE - Size of /m sequence 

3 2814 578 1! 

3; 2815 579 1°! IMPLICIT OUTPUTS: 

: 2816 230 1! 

3 2817 581 1 | EXT_LINE_LENGTH = . INDENT 

3: 2818 256 1! INT_LINE_LENGTH = .INDENT 

3 2819 585 1! LINE POINTER = Pointer to next character position in RNO_LINE 
3 soso ate } TMS_CINE_LENGTH = Length of Line in TMS relative units 

; 82¢ 286 1 ROUTINE VALUE: 

; 28 58 1 ! COMPLETION CODES: 

: 2824 588 1! 

3; 2825 589 1! None 

3 2826 590 1! 

3; 2827 591 1 ! SIDE EFFECTS: 

: 2828 238 1! 

3; 2829 593 1! None 

; 2850 594 1 !<- 

3; 2831 595 BEGIN 

3 He 238 LOCAL 

3; 283 59 IND; 

: 2834 598 

3: 2835 599 IND = . INDENT; 

: $39 600 CLR_RNO_LINE (); 

3 tH rey EXT-LINE_LENGTH = .IND; 

: 4H! rag IF (.IND GEQ ,CMDBLK CNDX$G_COLUMN_WID] + .CMDBLK CNDX$G_GUTTER Wig2> 
: Bey rn +: a tear ENDX$H_FORMAT EQL TMS11_A) OR (.CMDBLK CNDXSH_FORMAT EQL TMS11_E)) 
. cin 

+ 2844 608 i TMS11 output and paddin out to second column 

3; 2845 rst for /MASTER/LAYOUT=SEPARATE 

: 7] 611 CHSWCHAR_A (TAB, LINE_POINTER); ! Use tabs to get to second column 
3; 2848 ols CHSWCHAR_A (TAB, LINE POINTER); 

3 Rep zi? INT_LINE_LENGTH = .INT_LINE_LENGTH + 2; 

; 831 615 IND = .IND = .CMDBLK CNDXS$G_COLUMN_WID] - .CMDBLK CNDX$G_GUTTER_WID); 


F 8 
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; Routine Size: 


TMS_LINE LENGTH = (.CMDBLK CNDXS$G_COLUMN_WID] + .CMDBLK CNDX$G_GUTTER_WIDJ) * TMSSTD 
+ (.IND / 2) * MSPACE; 


EN 
ELSE 
TMS _LINE_LENGTH = (.IND / 2) * MSPACE; 


HSFILL (ZC° ', IND, .LINE_POINTER); 
NT LINE LENGTH = .INT bine LENGTH + .IND; 
sy CHSPTR 


C 
I ; 
t E_POINTER = CHSPLUS™ ( (RNG_LINE), .INT_LINE_LENGTH); 


O3FC 00000 INDENT_LINE: 
«WORD Save SA a ae 


59 000000006 8F DO 90002 MOVL § #MSPAC 
58 000000006 EF 9E 0000 MOVAB CMDBLK+16, R8 
57 00000000" EF 9 90010 MOVAB LINE POINTER, R7 
56 Be Ac DO 0001 MOVL INDENT, IN 
67 4 A? 9E 0001B MOVAS RNO_LINE, LINE_POINTER 
0484 C7 7C OOO1F CLRQ INT-LINE_LENGTA 
048C ¢7 D& 00023 CLRL §_TMS"LINE-LENGTH 
0488 (7 56 DO 00027 MOVL_ IND; EXT-LINE_LENGTH 
FC AB 68 C1 00 ¢ ADDL3 CMDBLK+18, CMDBBLK+12, R1 
: ah re 
02 F4 «OAS OBI 000 CMPW CMDBLK+4, #2 
06 13 0003A BEQL 
03 F4 AB Bi 0003C CMPW SDBLK+4, a3 
32 I2 00040 BNEQ $ 
00 87 006 BF 9 00042 1$: MOVB &#TAB, @LINE_ POINTER 
67 D6 0004 INCL LINE_ POINTER 
00 87 006 8F 90 00049 MOVB #TAB; @LINE POINTER 
67 D6 0004 INCL LINE POINTER 
0484 (C7 02 CO 0005 ADDL #2, INT LING LENGTH 
56 FC =AB «C3 0005 SUBL3 CMOBLK+T2, IRD, 
50 6 C3 0005A SUBL3 CMDBLK+16, RO, IND 
31 000000006 BF C4 0055 MULL2 &#TMSSTD, R1 
; Be EL Sos RIE age im: 
24 0 a 38 ADDL RO, R1, TMS_LINC_LENGTH 
56 ‘ ty 8 74 2% DIVL3 #2, IND, RO 
0 ¢3 6 78 MULL3 R9, RO, TMS LINE LENGTH 
bE i 9 C ans 3$ MOVCS #0, (SP), #32, IND, @LINE_POINTER 
0484 (7 5 0 b08 ADDL2 IND, INT_LINE_LENGTH 
30 04 A? 9E SOBA MOVAB RNO-LI 
6 0484 D740 3 OOBE MOVAB @INT_LINE_LENGTHCROJ, LINE_POINTER 


Routine Base: S$CODE$ + 125D 


es 
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yOu-000 PADLIN == Pad Line to column width 300-1 3B 90:38: u7 RUNOFF .SRCJNDXFMT.BLI; ° (17) iY 
; 2864 6 1 ZSBTTL ‘PADLIN -- Pad Line to colum on width’ : 
; bed ° 1 ~~ ROUTINE PADLIN CINT_LEN, PTR, EXT_LEN, DSC) : NOVALUE = ‘ 
; 630 1} ; 
i 2868 6 |_| FUNCTIONAL DESCRIPTION: : 
: 870 6 ; This routine pads the input Line to the column width : 
; be 6 5] FORMAL PARAMETERS: 
: 2874 6 $ 1! INT_LEN = anggcnel Length of Line : 
; 2875 638 1 | PTR” = CHSPTR to Line ; 
; 528 6 1 i EXT_LEN = Number of print positions used by line : 
; the ree : DSC - Address of string descriptor where padded Line is returned : 
; 879 4¢ IMPLICIT INPUTS: 
; 2881 644 1! CMDBLK [NDX$G_GUTTER_WID] - Gutter width : 
; eae rh? } CMDBLK CNDX$SG_COLUMN_WID] = Column width : 
: 88 ei? IMPLICIT OUTPUTS: 
ia eo oe dp oe : 
; 2888 651 1 | ROUTINE VALUE: ; 
3 red $36 : COMPLETION CODES: : 
wy BRS en : 
; 289 656 1 | SIDE EFFECTS: ; 
3: 2894 657 1 : 
3 Bee 528 : ® None : 
; 897 660 BEGIN : 
: 899 66 IF .CMDBLK CNDX$H_FORMAT] NEQ D ! For TMS and TEX out : 
; 2900 66 OR (. pete CNDX$A_LAYOUT) NEO. TO. COLUMN) ; ner all — enaent “TWO. COLUMN é 
3; 2901 664 OR (.EXT_LEN EQL 0 Or previously padded output : 
: 290 665 OR (.EXT ~tEN GTR .CMDBLK CNDX$G_COLUMN “wip})’ ; 
eB 3 
; st o38 Line does not need padding. Just copy it. 

; 907 670 “he $STR_COPY (STRING = (.INT_LEN, .PTR), TARGET = .DSC) 

; 909 67 BEGIN 

+ 2911 674 Compute output Length = 

; at ore } internal length + (column width - external Length) + gutter width 

: 2914 67 LOCAL 

3; 2915 O78 LINE : VECTOR CCHSALLOCATION (1200)], 

3 3i$ 44 LEN; 

: 4h | $ LEN = .INT_LEN + (.CMDBLK CNDX$G_COLUMN_WID] - .EXT_LEN) + .CMDBLK CNDX$G_GUTTER_WID); 
: 2920 6 5 CHSCOPY (.INT_LEN, .PTR, %C' *, .LEN, CHSPTR (LINE)); 


TT A ---s-----nnning 
_____ 
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PADLIN == Pad Line to column width -Sep- RUNOFF .SRCJINDXFMT.BLI; 
; a i : & $STR _COPY (STRING = (.LEN, CHSPTR (LINE)), TARGET = .DSC); 
5 29 
: $95¢ $89 ; 
O1FC 000 .ENTRY PADLIN Save R2,R3,R4,R5,R6,R7_RB : 3628 
: 900000006 EF 9€ 0000 MOVAB  STRS$ SFAILU Rg’ ; ae 
0 00006 EF ge 9 MOVAB CnBL K+4 Ree : 
E FB4 ce : MOVAB <=1208(SPS, SP : 
01 ’ 8 0 13 CHP MDBLK+4, “e + 3662 
01 02 af of O01 cHPY CMDBLK+6, #1 + 3663 
0c aC 0§ 09 TSTL  EXT_LEN + 3664 
07 13 000 BEQL =s«1$ : 
08 A7 0c AC pi 00 3 cAPL xT LEN, CMDBLK+12 + 3665 
F8 AD 04 AC 80 002C 1$ MOVW  INT_LEN $STRSSTRING t 3670 
FA AD OF 90 00031 MOVB #147 $STRSSTRING+2 : 
FB OAD 07 90 00035 MOVB = #1, $ST RSS TRI WOss ; 
FC OAD 08 ac dO 00 9 MOVL PTR, S$STRSSTRING+4 F 
58 DD 000 : PUSHL R8 ; 
7E D4 0004 CLRL. = (SP) : 
10 AC DD 00042 PUSHL DSC F 
F8 AD 9F 0004 PUSHAB $STRSSTRING ; 
32 11 00048 BRB it} : 
50 08 a7 9C AC C3 0004A 2$ SUBL3 EXT -LEN. CMDBLK+12, RO + 3681 
50 04 ac CO 00050 ADDL2 = INT“L : 
56 50 Oc a? C1 00054 ADDL CMDBLK S16 RO, ; 
56 20 08 BC 04 aC 2c 90059 MOVCS INT_LEN, @PTR, i .. LEN, LINE + 3683 
6E 56 BO 0062 MOVW LEN, S$STRSSTRING > 3684 
: AE OE 30 006 MOVB #14, S$STRSSTRING+2 ; 
03 AE 01 90 00069 MOVB = #1, SSTRSSTRING+3 : 
04 AE 08 AE 9E 9060 MOVAB LINE, SSTRESTRING*4 F 
58 DD 000 PUSHL 8 ; 
7E 04 00074 CLRL. -=( SP) F 
10 AC DD 00076 PUSHL DSC F 
OC AE 9F 00079 PUSHAB $STRSSTRING : 
43 D4 oo7¢ 3$: CLRL oe F 
000000006 EF 05 FB Ove CALLS #5, XSTSCOPY : 
04 0008 RET : 3687 


; Routine Size: 134 bytes, Routine Base: SCODE$ + 12F2 


93? 688 1 
926 689 1 END ‘End of module 
927 690 0 ELUDOM 


Ss 
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~EXTRN LIBSSIGNAL 


; PSECT SUMMARY 

: Name Bytes Attributes 

: SPLITS 1228 NO NOVEC.NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SOWNS sé WRT, RD ,NOEXE, NOSHR’ LCL, REL, CON,NOPIC,ALIGN(2) 

; SCODES 4984 NOVEE *NOWRT, RD » EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; Library Statistics 

Bat es a eS Pp eae Symbol$ ocoeee-- Pages Processing 

5 File Total ioaded Percent Mapped Time 

: _$255$DUA28:CSYSLIBIXPORT.L32;1 590 163 27 252 00:00.1 

: COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NDXFMT/OBJ=OBJ$:NDXFMT MSRCS:NDXFMT/UPDATE=(ENHS:NDXFMT) 
Size: ia 4984 oo cgee + 2400 data bytes 


Lines/CPU Min 
Lexenes/CPU-Min; 648 

ry ¥ Used: 556 pages 
ote ation Complete 


un T 3236 
Ete sed ti Of: 8 
ap me: 1308 


eer TE se cfc 


ON 
Y 


L EQUIPMENT CORPORA 
ENTIAL AND PROPRIET 


AH-BT13A-SE 
VAX/VMS_V4.0 


TA 
ID 


DIGI aR 
CONF = 


0343 


a; ee eee ne neem eee Ke SSS 


344 AH -BT13A- SE ENT CORPORATION 
VAX/VMS V4.0 ND PROPRIETARY. 


